Select Code to Download

package foo;
use warnings;
...
our $bar = 42;

1;

use warnings;
use strict;
...
use foo qw/$bar/;

say $bar;