#!C:/PERL/bin/perl.exe -w use strict; my $file = 'c:/Steep/USA Data/State/KY/KY2.gif'; print "Checking '$file'\n"; if( -e $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"; } $file = 'c:/usr/www/steepusa/stage/KY/KY2.gif'; print "\n\r\n\rChecking '$file'\n"; if( -e $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"; }