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