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