use Time::Local;
my $exe = '/usr/bin/foo';
my ($atime, $mtime) = (stat $exe)[8,9];
print $exe, " just ran.\n"
    if timelocal(localtime) - $atime < 10
        and $mtime < $atime;