last if eof $fh;
my $line = <$fh>;