Select Code to Download

package A;
use strict;
...
}
use vars @EXPORT;
$var1 = "1";

#!/usr/bin/perl
package B;
use strict;
use A;
print "$var1\n";

package A;
...

...
use A1;
...