print "Undefined parameter: >>";
print defined ($q->param('undefined')) ? "defined" : "not defined";
print "<<\n<p>";