D:\>curl https://localhost/debug.pl -H "Token: 3cc8bbeb" -X POST -F Test=Test
$VAR1 = 'HTTP_ACCEPT';
$VAR2 = 'HTTP_USER_AGENT';
$VAR3 = 'HTTP_HOST';
$VAR4 = 'HTTP_CONTENT_TYPE';
$VAR5 = 'HTTP_TOKEN';
$VAR6 = 'HTTP_CONTENT_LENGTH';
$VAR7 = 'HTTP_EXPECT';

D:\>curl https://localhost/debug.plex -H "Token: 3cc8bbeb" -X POST -F Test=Test
$VAR1 = 'HTTP_USER_AGENT';

##</code><code>##

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