my $file =  File::Tail->new("logs/nameoflogfile");

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

   print "$line\n";
}