# Module.pm package Module; use warnings; use strict; use vars qw($configvar); sub what_is_configvar { if ($Module::configvar) { return 'true'; } else { return 'false'; } } sub menu { print 'in menu(): ', what_is_configvar(); } sub inModule { print 'in Module: ', what_is_configvar(); } inModule(); 1;