package one;

sub two { print "In one::two\n"; }

package main;

$one = "main";

sub main { return "one: " };
sub two { print "In main::two\n"; }

$one->two();
"one"->two();