my $dbh = DBI->connect("DBI:Oracle:host=$args{dbhost};sid=CUSTOMERS", "$args{dbuser}", "$args{dbpass}")
		or die "Couldn't connect to database: " . DBI->errstr;