In quest for the shortest answer:

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

To additionally recurse the directories:

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

Hope this helps,

Jeroen
"We are not alone"(FZ)

Update: You may want to throw in an and not -l to prevent endless loops ;-) thanks to tilly for pointing me to this problem