sub _connect 
{
	my %conn_data  = @_;
	my $dbh = DBI->connect( 
		$conn_data{ data_source }, 
		$conn_data{ user }, 
		$conn_data{ pass },
		{
			RaiseError  => 1,
			AutoCommit  => 0,
			LongReadLen => 65_634 
		} 
	) or die DBI->errstr;
	$dbh;
}