open O, '>:raw',  $fname or die $!;
print O $im->png;
close O;
system $fname;

##</code><code>##

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