use CGI;
my $cgi = CGI->new();
my $param = $cgi->param('x');

sub CGI {
  print "CGI
";
}
sub new {
  print "new
";
}