#!/usr/bin/perl -w
use strict;
use CGI;
my $query=new CGI;
sub new(*) { print "Ouch!!\n"}
my $query2=new CGI;