Select Code to Download

use MyModule LIST;

BEGIN { require Module; Module->import( LIST ); }

$foo = 42;
print "In foo.pl: \$foo = $foo\n"

use strict;
use warnings;
...
print "Before do: \$foo = $foo\n";
do 'foo.pl';
print "After  do: \$foo = $foo\n";

13:54 >perl 990_SoPW.pl
Before do: $foo = 17
...
After  do: $foo = 17

13:54 >