sub tailFile {
   my ($file, $lines) = @_;
   open F, $file or die $!;
   my @lines;
   while (<F>) {
      push @lines, $_;
      shift @lines if @lines > $lines;
   }
   close F;
   return @lines
}