Select Code to Download

sub foo;
print ref \$::{foo}; # "SCALAR"
...
sub baz;
print ref \$::{baz}; # "GLOB"
$baz = $baz;         # Just to mention the symbol "baz".

sub foo;
*{-1} = sub { 'oh' };     # Create a sub called "-1".
...

#$foo;                    # But all this would change if you
                          # uncommented "$foo;".