open(IMG, '>test.png');
binmode IMG;
print IMG $gd->png;