Select Code to Download

#!/usr/bin/perl

...
open (IMG, '>histo.png') or die $!;
binmode IMG;
print IMG $gd->png;