Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
# To get time
my $currDate = time;
my $thisFile = "/usr/local/ahps2/tmp/****";
my $mtime  = (stat($thisFile))[9];
print "1: $mtime \n";
my @lt = localtime($mtime);
# The get file info
my $ptime = strftime ("%R",@lt);
print "2: $ptime \n";
print "3: $currDate \n";
print "\n";
print $currDate . "\n";

$
$ cat -n cmpmtime.pl
     1  #!/usr/bin/perl -w
     2  $file = $ARGV[0];
     3  if (time - (stat($file))[9] >= 7200) {
     4    print "The file $file is at least 2 hours old.\n";
     5  } else {
     6    print "The file $file is less than 2 hours old.\n";
     7  }
     8
$
$ # I have a file already (tstfile) that is more than 2 hours old
$
$ perl cmpmtime.pl tstfile
The file tstfile is at least 2 hours old.
$
$ # And I shall create a file right now
$ touch newfile
$
$ perl cmpmtime.pl newfile
The file newfile is less than 2 hours old.
$
$