read $fh, $contents, $length;
$/ = undef;
$contents = <$fh>;