Select Code to Download

#!/usr/local/bin/perl -w
# Simple image creation script - hopefully
...
    print $query->header(-type=>'image/png');
    print $im->png;
}