Select Code to Download

#!/usr/bin/perl -w

...
$gd->fill(0,0,$blue);
binmode STDOUT; #just in case we're on NT
print $gd->gif;

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
...
    print $image_file_code;
    exit;
}