Select Code to Download

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

foreach $file (@files){
if ( -f $file){
...
push (@wanted) $file if ((time() - $mtime) < (24*60*60);
}
}