my $line = readline $FH ;