use strict; use warnings; use MIME::Base64 qw(); my $image64 = <', "image.gif" or die "Can't create image file: $!\n"; binmode $gifOut; print $gifOut MIME::Base64::decode ($image64); close $gifOut;