Select Code to Download

use GD::Graph;

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