#!/usr/bin/perl

use File::Tail;

  $file=File::Tail->new("/var/log/dhcpd.log");
  while (defined($line=$file->read)) {
      print "$line";
  }

##</code><code>##

#!/usr/bin/perl -w

use File::Tail;
sub find_aaa_name {

	return  '/var/log/dhcpd.log';
}

my $file = File::Tail->new(
		name =>'/opt/dhcp_tail/dummy.txt', 
		interval => 1, 
		maxinterval => 1, 
		resetafter=> 5, 
		name_changes=> \&find_aaa_name, 
		ignore_nonexistant => 1
		);

while (defined($line = $file->read)) {
		print $line,"\n";	
	}

1;