Select Code to Download

#!/usr/bin/perl 
...
print "Content-type: image/png\n\n";
print $img->png;

my $img = (GD::Simple->new(200, 100),
       GD::Graph::pie->new(500, 600));