#!/usr/bin/perl

use File::Tail;

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