while(my $line = <$lh>) {
    print $line;
}