Select Code to Download

use strict;
$main::foo = 'bar'; # that's ok

use strict;
$foo = 'bar'; # error!!! it doesn't work with strict pragma!

#!/usr/bin/perl

...
$main::foo = 'bar';

print pkg1_get_foo()."\n";

use strict;

...
}

1;