#!/usr/bin/perl -w
use strict;
use File::Find;

my $directory = "d:/usr";

print "List of files newer than yesterday in $directory:\n";

find(\&process, $directory);
sub process {
    if ((int(-M) < 1) && (-f)) {
        print "  $File::Find::name\n";
    }
}