Select Code to Download

my $filename = 'somescript.pl';
my $ctime = (stat $filename)[10];

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localt
+ime(time);