while (defined( my $line = readline($fh) )) {