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': $!";