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();


##</code><code>##

$one = "two";
$two = "three";
$three = "four";
$four = "five";
$five = "six";

print $$$one . "\n";
print $$${"one"} . "\n";


##</code><code>##

$one = "two";

%$one:: = %::;
print %$one . "\n";

%$one = %::;
print %$one . "\n";