open my $fh,'<:raw',$filename or die "Could not open $filename: $!";
my $data=do { local $/; <$fh> };