#!/usr/local/bin/perl -w
use Net::Ping;
#use Net::SMTP;

sub email() {
print "emailed: $_\n";
print eFILE ("$_\n");
}

open(INFILE, "<", "host.file") or die("unable to open file: $!");
my @ip_array = <INFILE>;
chomp(@ip_array);

open(OUTFILE, ">", "output.file") or die("unable to write to file: $!");
open(eFILE, "+<", "email.file") or die("unable to write to file: $!");
my @efile = <eFILE>;
chomp(@efile);

$p = Net::Ping->new();

foreach (@ip_array)
        {
          if($p->ping($_))
            {
              print OUTFILE ("$_ is responding to ping.\n");
            }else{
                  print OUTFILE ("$_ is NOT responding to ping.\n");
		  #while (@efile = <eFILE>) {
			#if (@efile =~ $_) {
				#print "found $_ on the list.\n"
		  	#}else{
		  		email()
				#}
			#}
		}	
        }
close(INFILE);
close(OUTFILE);
close(eFILE);