chomp(my $day = $ARGV[1]);

chomp(my $month = `date +%m`);
chomp(my $premonth = $month--);
if ($month == 01) {
        $premonth = 12;
}

chomp(my $year = `date +%y`);
print ("year-1: $year\n");
chomp(my $preyear = $year--);
print ("year-2: $year\n");

my $file = "$filespath\SizeCheck-$year\-$month\-$day\.dat";

print ("File: $file\n");