I am using a subset of your suggestion, but am getting an error when trying to open the file to read it.

use File::Find;

find(\&wanted, '/opt/psoft/hr83tst/appserv/prcs/HRTST/log_output/');
print $_ ;
sub wanted {
    return unless /\.out$/;
    open F, $_ or return ;
    while (defined (my $line = <F>)) {
        if (-M $_ < 0.5) {
        print $_ if $line =~ /error/ ;
        system("mail -s' $_' mikev\@beverlycorp.com<$line");
        return;
       }
    }
    close F;
}
[download]

This is teh error being returned - "A file or directory in the path name does not exist. sh: error: 0403-016 Cannot find or open the file." Any help is greatly appreciated.