#!/usr/bin/perl
use CGI;
use Storable;
use MIME::Base64;
use CGI::Carp qw(fatalsToBrowser);
$hidden = "BAcIMTIzNDU2NzgECAgIAwMAAAAEAwAAAAAGAAAAcGFyYW1zCIIEAAAAc3RlcAQDAQAAAAiAHgAAAF9fZ2V0X3dvcmtmbG93X2J1c2luZXNzX3BhcmFtcwQAAABkYXRh";
$secret = "iAithang2ha6OoCenai7uoLigh5ijem4dieK1aene7Ce";
$nl = "\n
";
# CGI context
$query = new CGI;
$url = $ENV{REQUEST_URI};
$method = $ENV{REQUEST_METHOD};
# HTML header
print $query->header;
print "