Select Code to Download

#!/opt/bin/perl –w

...
my $black = $image->colorResolve(0,0,0);
$image->rectangle(0,0,$x,$y,$black);

my $cgi = new CGI;

...
         $cgi->h1('it’s a framed picture!'),
     $cgi->end_html;