The POD (perldoc GD::Graph) suggests something like:

use autodie;

...

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

Update: Added the all-important binmode; thanks to BrowserUk for the reminder.