Select Code to Download

package module1;

...
@EXPORT_OK = qw($str);

1;

#!/usr/bin/perl -w

...
use module1 qw($str);

print $str;

Global symbol "$str" requires explicit package name at ./script.pl lin
+e 7.
Execution of ./script.pl aborted due to compilation errors.