sub get_last_line {
   my $name=shift @_;
   my $file=File::Tail->new(name=>$name,tail=>1);
   return $file->read;
}