Select Code to Download

use autodie;

...
...
open my $fh, '>', 'test.png';
binmode $fh;
print {$fh} $gd->png;