my $q = CGI->new(\*IN);