#!perl handler(CGI->new); sub handler { my($q) = @_; ... }