use CGI qw(:standard);
use Data::Dumper;
my $session = CGI->new();
print $session->header('text/plain');
print Dumper($session->http());