eval "finddepth(\\&wanted,\$base)";
if ( $@ ) {
    print "new file: $@\n";
}

sub wanted
{
    die $File::Find::name if ( -M _ <= 30 );
}