use Data::Dumper;
print "content-type: text/plain\n\n";
print "--------------------\n";
print Dumper @_;
exit(0);
print "content-type: text/plain\n\n";
print "====================\n";
print Dumper @_;
exit(0);
print "content-type: text/plain\n\n";
print "HHHHHHHHHHHHHHHHHHHH\n";
print Dumper @_;
exit(0);