my @r = <$fh>;
my $data = join '', @r;