perl -MCGI -e 'my $q = CGI::new(); open CGI, "~/foo.txt";'
[download]

-Blake

Um, you would want to write:

my $q = CGI->new();
[download]

Otherwise you have coded a function call, not a method lookup, which means that it is missing its first argument and won't know to search the inheritance hierarchy (if any) looking for the method.

The arrow invocation produces the same result in this case:

$ perl -MCGI -e 'my $q = CGI->new(); open CGI, "~/foo.txt"; print ref 
+$q;'
Can't locate object method "new" via package "IO::Handle" (perhaps you
+ forgot to load "IO::Handle"?) at -e line 1.
[download]

conv

Yeah exactly. This can be seen below....

package Snafu;
use Carp 'cluck';
sub new {
   warn join ',',@_;
}
1;
Snafu::new("Test");
Snafu->new("Test");
[download]

although the following is also interesting

package Snafu;
use Carp 'cluck';
sub new {
    cluck join ',',@_;
}
sub _new { goto &new }
1;
Snafu::new("Test");
Snafu->new("Test");
Snafu->_new("test");
[download]

I tried that originally, and it still collided with the filehandle....

perl -MCGI -e 'my $q = CGI->new(); open CGI, "~/foo.txt";'
Can't locate object method "new" via package "IO::Handle" at -e line 1
+.
[download]

-Blake