select $fh;
print while <>;