Select Code to Download

open OUT,">$ID.png"; 
binmode OUT; 
print OUT $im->png; 
close OUT;

#!/usr/bin/perl

...
binmode DISPLAY;
print DISPLAY $pngdata;
close DISPLAY;