Select Code to Download

#! /usr/bin/perl

...
binmode OUT ;
print OUT $image ;
close OUT ;

#! /usr/bin/perl

...

close IN ;
close OUT ;