use MIME::Base64 qw( decode_base64 );
# ...
print "Content-type: image/gif\n\n";
binmode STDOUT;
print decode_base64('R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==');