use MIME::Base64 qw(decode_base64);
  print "Content-type: image/gif\n\n";
  print decode_base64
    'R0lGODlhAQABAID/AMDAwAAAACH5BAEAAAAALAAAAAABAAEAQAICRAEAOwA7';