This is completely untested but have you tried the following?

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

Some documentation you might want to read:
Basic Input and Output tutorial
File Input and Output tutorial
QandASection: files questions and answers