perl中如何查看文件或目錄的時間

#!/usr/bin/perl
use POSIX qw(strftime);

while($filename = <*>){
    if (-d $filename){
        print "Directory : ";
    }

    print $filename;
    print ' ' x (25 - length($filename));
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,  $atime,$mtime,$ctime,$blksize,$blocks)  = stat($filename);
    my @t = localtime $ctime;
    $date = sprintf "%02u/%02u/%02u %02u:%02u:%02u", $t[4] + 1, $t[3], $t[5] % 100, $t[2], $t[1], $t[0];
    print $date;

    $date = strftime "%Y/%m/%d %H:%M:%S", (localtime $ctime)[0..5];
    print " ", $date;

    print "/n";
}