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