Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use Data::Dumper qw( Dumper );
...
mycode();        # "foo is FOO"

# print Dumper(\%main::);  # make sure $foo is never in symbol table
  2. or download this
    mycode() called with test
foo is blah
...
foo is FOO
mycode() called with no operands.
foo is FOO
  3. or download this
    mycode() called with test
foo is blah
mycode() called with no operands.
mycode() called with no operands.
mycode() called with no operands.