sub TEST_FOR_AGE {
    print "$File::Find::name\n";

    if (-f && (-M _ >= 30)) {
        print FOO "$File::Find::name\n";
    }
}