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