open(GD, ">$0.png") or die;
binmode GD;
print GD $im->png;
close GD;