package MyConfig; use strict; use vars qw($option); $option = 1; #### use MyConfig; print "Option = 1" if $MyConfig::option != 0;