my $contents = do{local $/; <$fh>};