If the image is rather small, you could also try something like:

my $imageContent = do {
  open (my $IN, "<", $image) or die "Error in reading '$image': $!";
  binmode($IN);
  local $/ = undef;

  my $content = <$IN>;
  close($IN);
  return $content;
}; # do

open (my $OUT, ">", $outfile)
  or die "Error: couldn't write '$outfile': $!\n";
} # unless
binmode($OUT); # thanks to pKai
print $OUT $imageContent;
close($OUT) or die "Error: couldn't close '$outfile': $!";
[download]

my $imageContent = do {
  open (my $IN, "<", $image) or die "Error in reading '$image': $!";
  binmode($IN);
  local $/; # defaults to undef
  <$IN>; # close happens automatically at end of block if
         # you use a lexical variable as filehandle
}; # do

open (my $OUT, ">", $outfile) 
  or die "Error: couldn't write '$outfile': $!\n";
binmode($OUT); # thanks to pKai
print $OUT $imageContent;
close($OUT) or die "Error: couldn't close '$outfile': $!";
[download]

There is a binmode $OUT; missing, which will lead to rendering the output unusable under Win.

That's the same as my first post, except you added do which doubles the memory usage.