# Connect to Bill-Master
	{
		$meta->{'billing'}->{'dbh'} = undef;
		$ENV{'NLS_LANG'} = 'RUSSIAN_CIS.UTF8';
		my $dbh = DBI->connect($meta->{'billing'}->{'link'}, $meta->{'billing'}->{'user'}, $meta->{'billing'}->{'pass'}, {RaiseError=>0, PrintError=>1, AutoCommit=>0} );
		$dbh->do("ALTER SESSION SET NLS_NUMERIC_CHARACTERS = '. '");
		$dbh->do("ALTER SESSION SET NLS_DATE_FORMAT = 'YYYY-MM-DD'");
		$dbh->do("ALTER SESSION SET NLS_TIMESTAMP_FORMAT = 'YYYY-MM-DD HH:MI:SS'");
		$meta->{'billing'}->{'dbh'} = $dbh;
	}
	# Connect to UserSide
	{
		$meta->{'userside'}->{'dbh'} = undef;
		my $dbh = DBI->connect($meta->{'userside'}->{'link'}, $meta->{'userside'}->{'user'}, $meta->{'userside'}->{'pass'}, {RaiseError=>0, PrintError=>1, AutoCommit=>0} );
		$dbh->{'mysql_enable_utf8'} = 1;
		$dbh->do("set NAMES utf8");
		#$dbh->do("set character set cp1251");
		$meta->{'userside'}->{'dbh'} = $dbh;
	}
...
sub sqlcmd($$$;$)
{
	my $dbh = shift;
	my $cmd = shift||'';
	my $sql = shift||'';
	my $params = shift;
	return undef unless (grep {$cmd eq $_} qw(check execute fetch list));
	$sql = $meta->{'sql'}->{$sql} if (exists($meta->{'sql'}->{$sql}));
	my $q = $dbh->prepare($sql);
	if ($params && ref($params) eq 'HASH')
	{
		$q->bind_param(":$_", $params->{$_}) foreach keys(%{$params});
	}
	if ($params && ref($params) eq 'ARRAY')
	{
		$q->bind_param($_+1, $params->[$_]) foreach (0..$#$params);
	}
	my $ret = $q->execute() or return undef;
	if ($cmd eq 'check')
	{
		my ($exist) = $q->fetchrow_array;
		return ($exist ? 1 : 0);
	}
	elsif ($cmd eq 'execute')
	{
		return $ret;
	}
	elsif ($cmd eq 'fetch')
	{
		my @rows = ();
		while ( my $row = $q->fetchrow_hashref )
		{
			push @rows, $row;
		}
		return \@rows;
	}
	elsif ($cmd eq 'list')
	{
		my @rows = ();
		while ( my ($value) = $q->fetchrow_array )
		{
			push @rows, $value;
		}
		return \@rows;
	}
}

print Dumper($meta->{'billing'}->{'dbh'}->selectall_hashref("select * from dual"))