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