opendir DIR, "$path" or die "Ack!  Thpt! : $!\n";

my @list = grep { -M "$path/$_" <=1 } readdir DIR;
closedir DIR;
[download]

The -M filetest returns the time since the file was last modified in days.

note I hadda modify this after I noticed that it was originally returning files that *hadn't* been modified in over a day.

danger's answer picked up on that =)

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

Several people have already mentioned a few ways to grab files and use the -M test for modification times -- However, you might want to consider using the File::Find module for this, as it will take care of recursively searching a given directory for you and some of the other menial labour involved. The following will give you all the files under the './misc' directory that have been modified within the last day (relative to script start time):

#!/usr/bin/perl -w
use strict;
use File::Find;
my @files;
find(sub{
        push @files, $File::Find::name if -M $_ < 1;
     },
     './misc');

print join "\n", @files;
[download]

See the docs on File::Find for further information.

sub get_files {

    @files = reverse (map {

        (split (/\s+/))[8];

    } `ls -lrt`);

    foreach $filename (@files[0..3]) {

        print "$filename\n";
        
     }
    }
[download]

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

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

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