Select Code to Download

#!/usr/bin/perl
use strict;
...
open IMG, '>','file.png' or die $!;
binmode IMG;
print IMG $gd->png;