use File::Find::Rule

my $rule = rule(
  file  =>
  name  => '*.out',
  grep  => qr/error/,
  start => \@directory_list,
);

while(my $file = $rule->match) {
  # send mail here
}