Select Code to Download

foreach my $file (@filelist) {
    if ( int( -M $file ) < 1 ) {
        # do something with a file
    }
}

#!/usr/bin/perl -w
use strict;
...
        print "  $File::Find::name\n";
    }
}

List of files newer than yesterday in d:/usr:
  d:/usr/newfile1.txt
  d:/usr/newfile2.txt