Select Code to Download

perl -MGD -e"$im = new GD::Image(100,100);open $fh,'>','out.jpg';binmo
+de $f; print $fh $im->jpeg"

use strict;
use warnings;
...
binmode $fh_both; 
print $fh_both $im_gray->jpeg;