Select Code to Download

@tm = localtime;
$mytime = sprintf("%d%02d%02d%02d%02d%02d", $tm[5]+1900, $tm[4]+1, $tm
+[3], $tm[2], $tm[1], $tm[0])
rename ($filea, "$filea$mytime") || die "Couldn't rename file: $!";

@tm = localtime;
$mytime = sprintf("%d%02d%02d%02d%02d%02d", $tm[5]+1900, $tm[4]+1, $tm
+[3], $tm[2], $tm[1], $tm[0])
rename ($filea, substr($filea,0,3).$mytime) || die "Couldn't rename fi
+le: $!";