perl -e "use CGI; $q= CGI::->new(); open CGI,'<cgi'"