my ($atime, $mtime, $ctime) = (stat("c:\SPTHistory1.txt"))[8..10];

printf qq~
        Accessed: %s
        Modified: %s
        Created: %s
~,
        get_real_time($atime),
        get_real_time($mtime),
        get_real_time($ctime);

sub get_real_time ($) {
        my ($sec,$min,$hour,$mon,$mday,$year,$wday,$yday,$isdst) = gmtime $_[0];
        $year += 1900;
        return "$year\_$mday\_$mon";
}