Help for this page

Select Code to Download


  1. or download this
        package A;
    use strict;
...
    @EXPORT = qw/$problem/;

    1;
  2. or download this
        package B;
    use strict;
...
    sub foo { print "problem is $problem\n" }

    1;
  3. or download this
        use A;
    use B;

    $problem = "bar";
    foo();