###His code improved

$GlobalName = "Clinton";

sub getGlobalName
    {
    return($GlobalName);
    }

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