package Foo;

$Foo::VERSION='3.02';

sub set_globals {
    $DEBUGGING = 0;
    $LOG_ERROR = 0;
    $ERR_MIN = 20;
	$DEFAULT_XFR = 'G0023';
}

set_globals();
#... more code ...