When anyone says "recurse through directories", think File::Find:

use File::Find;
use File::Basename;

find({ wanted => sub {
    my $file_age = int(-M $_);
        if ($file_age > $age) {
            my ($dir, $path) = fileparse($_);
            print OLD "$dir\t$name\t$file_age\n";
        }


}, no_chdir => 1 }, '.');
[download]

That's untested, but it's a little simpler than doing it yourself. :)