#!/usr/bin/perl
# This script relies on its nph- filename to invoke the CGI non-parsed-header facility.

use strict;
use warnings;

use MIME::Base64;

my $blueSquare = <<'EOF';
iVBORw0KGgoAAAANSUhEUgAAAGQAAABkAQMAAABKLAcXAAAAFmlUWHRYTUw6Y29tLmFkb2JlLnht
cAAAAAAAaEZ+GgAAAAZQTFRFAAD/AAAAe2K/PgAAABl0RVh0U29mdHdhcmUAR3JhcGhpY0NvbnZl
cnRlcjVdSO4AAAA1SURBVHicYmCgK2Ckr3VogJ8GKgcTIDd0h6ZvRzIY2Hw0sACf35nI1Ecd20kA
AAAAAP//AwDMaQA2EUO6XAAAAABJRU5ErkJggg==
EOF
$blueSquare =~ s/\n//g;

print decode_base64($blueSquare);