opendir (DIR,"./");
@files = readdir DIR;

##</code><code>##

foreach $file (@files){
if ( -f $file){
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)= stat($file);
push (@wanted) $file if ((time() - $mtime) < (24*60*60);
}
}