It looks like you tried printing to your filehandle PICTURE, commented it out and then printed the png to STDOUT. The one with the PICTURE filehandle should have been what you wanted if $im had anything in it. What output did you get when you printed $im to STDOUT?

# Open a file for writing 
open(PICTURE, ">/tmp/picture.png") or die("Cannot open file for writin
+g");

# Make sure we are writing to a binary stream
#binmode PICTURE;

# Convert the image to PNG and print it to the file PICTURE
#print PICTURE $im->png;
print $im->png;
close PICTURE;
[download]