sub new
{
	my ($class, %flags) = @_;
	my ($self) = {};
	bless $self, ref($class) || $class;

	my $server = $flags{'-server'} || $ENV{'DBISERVER'} || die "No server specified!\n";
	my $user = $flags{'-user'} || 'undef';
	my $pass = $flags{'-pass'};
	
	$self->{_DB_NORM_HANDLE} = DBI->connect('dbi:' . $server, $user, $pass, { RaiseError => 0, AutoCommit => 1 } ) or croak "Cannot connect to $ENV{'DBISERVER'}\n";

	return $self;
}