@list = grep{ (-M) <= 1} <*>;

##</code><code>##

our @list;
findrecent('*');
sub findrecent{
  my $glob = shift;
  for ( glob $glob ){
    push( @list, $_) if (-M) <= 1;
    findrecent( $_.'/*' ) if -d;
  }
}