H:\>perl
package Class;
sub new {
  print "hello\n";
}
package main;
sub Class {
  print "not in Class\n";
}
Class->new();
^Z
not in Class
Can't call method "new" without a package or object reference at - line 9.

H:\>