use warnings;
use strict;
use File::Tail;
my $param = shift;
my $file = new File::Tail(name=>$param, maxinterval=>1, adjustafter=>1);
while(defined(my $line=$file->read))
{
  print "$line";
}