my $what = $cgi->param('what') || $cgi->query_param('what');
my $headers HTTP::Message->parse( $what )->headers;