$GlobalName = "Clinton";

sub getGlobalName
	{
	return($GlobalName);
	}

print "Before: " . &getGlobalName() . "\n";
$ref = \&getGlobalName();

print '>>', $$ref, "\n"; # Added

$$ref = "Gore";

print '>>', $$ref, "\n"; # Added

print "After: " . &getGlobalName() . "\n";

# Produces the output
Before: Clinton
>>Clinton
>>Gore
After: Clinton