use CGI;
my $q = CGI->new;
print $q->param('p'), "\n";
print "$$\n";