package Foo;

$Foo::VERSION='3.02';

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

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

##</code><code>##

################################
package Bar;
################################
$VERSION = 1.0;

use strict;
use Foo;
use vars qw/ @ISA /;
@ISA = qw/ Foo /;

INIT {
    $Foo::LOG_ERROR   = 1;
    $Foo::ERR_MIN     = 20;
	$Foo::DEFAULT_XFR = 'H00293';
}

sub new {
    my ( $class, $args ) = @_;
    # etc...

##</code><code>##

use strict;
use Foo::Bar;
my $obj = Foo::Bar->new;

##</code><code>##

use Foo::Bar qw/noLog/;