##
$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";