###His code
$GlobalName = "Clinton";

sub getGlobalName
    {
    return($GlobalName);
    }

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

##</code><code>##

###His code improved

$GlobalName = "Clinton";

sub getGlobalName
    {
    return($GlobalName);
    }

print "Before: " . &getGlobalName() . "\n";
$GlobalName = "Gore";
print "After: " . &getGlobalName() . "\n";

##</code><code>##

$ref = \&getGlobalName();

##</code><code>##

print "$ref \n";

##</code><code>##

CODE(0x1a45934)

##</code><code>##

${CODE(0x1a45934)} = "Gore"