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