Select Code to Download

my $monaco = GD::Font->load('/System/Library/Fonts/Monaco.dfont')
  or die "Can't load monaco!";

#!/usr/bin/perl
use GD;
...
open (IMG, ">$0.png");
print IMG $img->png;
close IMG;

#!/usr/bin/perl
use strict;
...
print IMAGE $im->png;
close IMAGE;