package Test3; sub test1 { print "hello\n"; } 1; package main; *Test2:: = \*Test3:: ; $INC{"Test2.pm"}++; Test2::test1(); 1; [download]
In reply to Alias of a package not working by djcp3