Help for this page

Select Code to Download


  1. or download this
    my $imageContent = do {
  open (my $IN, "<", $image) or die "Error in reading '$image': $!";
...
binmode($OUT); # thanks to pKai
print $OUT $imageContent;
close($OUT) or die "Error: couldn't close '$outfile': $!";
  2. or download this
    my $imageContent = do {
  open (my $IN, "<", $image) or die "Error in reading '$image': $!";
...
binmode($OUT); # thanks to pKai
print $OUT $imageContent;
close($OUT) or die "Error: couldn't close '$outfile': $!";