#!c:\perl\bin\perl.exe

use strict;
use warnings;

use File::Find;
use Net::SMTP;

my $mailserver_url = "foo";
my $from = 'foo@bar.com';
my $to = 'foo@bar.com';
my $subject = "CONNREFUSED lists";
my @result =();

undef $/;
find( sub
{
 return if ($_ =~ /^\./);
 return unless ($_ =~ /\.autodel/i);
 stat $File::Find::name;
 return if -d;
 return unless -r;

 open(FILE, "< $File::Find::name") or return;
 my $string = <FILE>;
 close (FILE);

 return unless ($string =~ /\bCONNREFUSED\b/i);
 
 
 my $smtp = Net::SMTP->new(Host => 'foo');
  
  #Sending the message
  
 $smtp->mail( $from );
 $smtp->to( $to );
 $smtp->data();
 $smtp->datasend("To: $to\n");
 $smtp->datasend("From: $from\n");
 $smtp->datasend("Subject: $subject\n");
 $smtp->datasend("\n"); # done with header
 $smtp->datasend("$results\n");
 $smtp->dataend();
 $smtp->quit(); # all done. message sent.
},
  'X:\\baz\\MAIN');