open IMG, $image or die $!;
binmode IMG;
binmode STDOUT;
my $buffer;
while (read(IMG, $buffer, 1024)) {
    print $buffer; # etc
}