#!/usr/bin/perl -w
use strict;
use Net::Ping;
my $result;

while (<>){

                my $p = Net::Ping->new('icmp',3);

                if ($_ =~ /^(.*) dns02cor dhcpd: DHCPACK on ([0-9\.]+) to ([[:xdigit:]:]+).* ([0-9\.]+)/) {

                                for (my $i = 0; $i < 3; $i++){
                                        print "attempt $i for $2 \n";
                                        $result = $p->ping($2);
                                                if ($result){
                                                print "############## $2 is alive at attempt $i\n";
                                                last;
                                                }
                                $p->close();
                                }
                                unless ($result){
                                         print "*****$2 is dead*****\n";
                                }
                }

}