Select Code to Download

my $mtime = (stat $filename)[9];
my $age = time() - $mtime;
...
    if $age < 0;

print "$filename is $age seconds old\n";