join "", <FH>;

##</code><code>##

{ local $/ = undef; $file = <FH> }

##</code><code>##

sysread FH, $file, -s $filename;