while ( my $line = <$input_handle>) {