Worse yet, it looks as if almost anything might conceivably be a file handle, like all of the following -->

#!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 '';
[download]

This also works -- (prints Ouch)

my $query9 = new @;
[download]

although the next line is not interpreted correctly.

-- Anthony Staines