Select Code to Download

my  $lexical="Value";
our $dynamic="Value";

#assuming warnings and strict
our $Variable="Variable";
...
print @Other_Variable;
print Other_Variable();
print Other_Variable "Written to Other_Variable at ".localtime();

sub dump_symbol_table {
    print "SYMBOL TABLE\n---------------------------------------------
+----------\n";
...

BEGIN { dump_symbol_table }
END   { dump_symbol_table }

      Other_Variable = '*main::Variable'   
                    ...
...
                    ...
                   \ = '*main::\'          
                   _ = '*main::_'