open OUT,">$ID.png"; 
binmode OUT; 
print OUT $im->png; 
close OUT;