# 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;

##</code><code>##

c:\@Work\Perl\monks\Anonymous Monk\1221498>perl -le
"use warnings;
 use strict;
 ;;
 use Module;
 ;;
 $Module::configvar = 1;
 ;;
 Module::menu();
"
in Module: false
in menu(): true