use strict;
use warnings;
use File::Glob;

my $path = "";
my ($oldest, $fname) = (time, '');
my $modtime;

chdir $path;
foreach (glob("*")) 
{
   if (-f)
   {
      $modtime = (stat($_))[10];
      ($oldest = $modtime and $fname = $_) if ($oldest > $modtime);
   }
}
print "$fname\t$oldest\n";

(abs(time() - $oldest) < 300) ? print "File recent enough\n"
                              : print "Reporting an error\n";