Select Code to Download

#!/usr/bin/env perl

...
my_sub;

say "Main program: $var";

package MyModule;

...

  say "Set \$var to $var in my_sub";
}

$ ./prog.pl 
Set $var to 42 in my_sub
Main program: 42