use File::Find;
use Cwd;
my $current = cwd;

find( \&pm_beneath, $current, );

sub pm_beneath {
  use File::Basename;

  my $file     = $File::Find::name;
  my $days     = .1;                  #hard-coded
  my $basename = basename($file);
  return if $file =~ /.*AppData.*/;
  my $access_age = -M $basename;
  return if ( $access_age > $days );
  print "$file\n";
  printf "$basename: M age in days: %.4f\n\n", $access_age;
}