Select Code to Download

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

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