Help for this page

Select Code to Download


  1. or download this
    ...
package Foo;
...
package Bar;
...
  2. or download this
    {
   my $foo;
...
   }
   ...
}
  3. or download this
    for (1..2) {
   my $x;        # New variable each time.
   print($x);
}
  4. or download this
    package Foo;
use Carp qw( carp );
...

package Foo;
carp('Two');
  5. or download this
    package Foo;
use Carp qw( carp );
...

package Foo;
carp('Three');