# perl -MCGI -le'print "works" if CGI->new()->param(-name=>"a")' a=1
works
#