my $newfile = undef;
eval {
  finddepth(
    sub {if (-M $_ <= 30) {$newfile=$File::Find::name; die "";}}, 
    $base);
};
die "$@" if ($@ and !defined($newfile));
if (defined($newfile)) {print "$base has something new in it\n";}
else {print "$base is just old stuff\n";}