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

##</code><code>##

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

##</code><code>##

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