Select Code to Download

#!/usr/bin/perl -w
...
print "$sttime\n";
my $fttime = (-M $file)*24*3600; # using file test
print "$fttime\n";