Select Code to Download

&decl();
print $variable;
sub decl {
    our $variable = 1;
}

package one;
use vars qw($thing1);
...
#stuff;
package main;
print "$thing1 and $thing2";