#!/usr/bin/perl
use warnings;
use strict;
use CGI;

my $query = new CGI;

print "Content-type: text/plain\n\n";

print "b.cgi query dump:\n";
print $query->Dump . "\n";
print "b.cgi argv dump:\n";
print join(',', @ARGV);
print "\n";