my $line = <FH>;
print $line;