#!/usr/bin/perl -w
use strict;
use File::Tail;

my $file = File::Tail->new(
		name =>'/var/log/messages', 
		interval => 1, 
		maxinterval => 1, 
#		resetafter=> 5, 
		);

while (defined(my $line=$file->read)) {
 
	print $line;

}

##</code><code>##

#!/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";
                                }
                }

}