##

#!/usr/bin/perl -Tw

use strict;
use CGI;

my $q = new CGI;

print $q->header;
print $q->query_string;

##

##

grep> cd pub
grep> more beer