取文件的最后修改时间

use File::stat;
use POSIX qw(strftime);

$file = "E:/123/27E4W99A0.00";
$date_string = strftime "%Y%m%d-%H:%M:%S", (localtime stat($file)->mtime)[0..5];
print $date_string;