The following way should work with Tk (haven't tested it):
use MIME::Base64;
# ... your GD code from above
my $imageData = $image->png;
# save $imageData to file with binmde... well you know that...
open( my $PNG, ">", $imageFilename ) or die ...;
binmode( $PNG );
print $PNG $imageData;
close( $PNG ) or die ...;
# convert $image to tk photo
my $imageData64 = MIME::Base64::encode_base64( $imageData );
my $photo = $mw->Photo(
-format => 'png',
-data => $imageData64,
);
# do something with $photo...
I used a similar way for a little slideshow I wrote...
Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"