Select Code to Download

$ perl
use strict;
my $o= new My::Module;
...
^D
Can't locate object method "new" via package "My::Module"
$

sub My::Module::new {
    require My::Module;
    undef &My::Module::new;
    goto &My::Module::new;
}