# globals to our package.
use vars qw/$global1 $global2 $fred/;
our ($global1, $global2, $fred);