#!d:/perl/bin/perl -w
use strict;
use CGI;
my $query=new CGI;
sub new(*) { print "Ouch!!\n"}
my $query2=new CGI;
my $query3 = new STDIN;
my $query4 = new $query;
my $query5 = new query;
my $query6 = new 1;
my $query7 = new "";
my $query8 = new '';

##</code><code>##

my $query9 = new @;