third_party/WebKit/LayoutTests/http/tests/plugins/resources/dump-post.pl

#!/usr/bin/perl -wT

use CGI;

my $cgi = new CGI;

# Just dump whatever was POSTed to us as text/plain.

print $cgi->header('text/plain');

# Different versions of the CGI module use different conventions for accessing
# the POST data. Because at least one of them will be empty, there is no harm
# in printing both.
print $cgi->param('POSTDATA');
print $cgi->param('keywords');