use strict;

for my $file (@ARGV) {
    print "Checking '$file'\n";
    if( -f $file ) {
    
        system("dir $file");
        my $mtime= (stat($file))[9];
        print "Mtime: $mtime\n";
        print "As string: " . localtime($mtime);

    } else {
        print "File '$file' does not exist, skipping\n";
    };
};

__END__
Checking 'tmp.pl'
 Volume in Laufwerk Q: hat keine Bezeichnung.
 Volumeseriennummer: 5A02-C2B6

 Verzeichnis von Q:\

06.11.2014  12:01               336 tmp.pl
               1 Datei(en),            336 Bytes
               0 Verzeichnis(se), 956.154.372.096 Bytes frei
Mtime: 1415271660
As string: Thu Nov  6 12:01:00 2014