use File::Tail;
my $logfile=File::Tail->new(name=>$filename, tail=>10);
while (defined(my $line=$logfile->read)) {
      print "$line";
}