my $data = do { local $/ = undef; <$image_fh>; };

##</code><code>##

while (read($image_fh, $buffer, 4096)) {
    print $buffer;
}