local *FH;
open FH,"<$filename" or die "Could not open $filename: $!";
binmode FH;
my $data=do { local $/; <FH> };