use CGI qw(:standard);
use Data::Dumper;
my $session = CGI->new();
print "HTTP/1.1 200 OK\n\n";
print Dumper($session->http());