@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 file: $!";