
   print "The time is now ", time(), " seconds since 1970.\n";






   my $now = time();
   my $mtime = (stat "/tmp")[9];  # get modification time
   print "/tmp was last modified ", $now - $mtime,
         " seconds ago.\n";
   print "/tmp was last modified ", ($now - $mtime)/60,
         " minutes ago.\n";



   my $mtime_etc = (stat "/etc")[9];
   if ($mtime > $mtime_etc) {
     print "/etc has not been modified since /tmp was.\n"
   } else {
     print "/etc was been modified since /tmp was.\n"
   }

