$test = "scott";

##</code><code>##

    $main::{$test} = "skot2";

##</code><code>##

    print "As you see, ($scott) and ($main::scott) " .
          "aren't here\n";

##</code><code>##

    $$test = "surprise!";

##</code><code>##

    print "Now ($scott) and ($skot2) and ($main::scott) " .
          "have decided to show up\n";