use autodie;

...

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