Select Code to Download

    $test = "scott";

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

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

    $$test = "surprise!";

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