insert into BM_ACTION_LOG (MOMENT, ACTION_ID, STAFF_ID, SCRIPT_NAME, DOMAIN_ID, GROUP_ID, CUSTOMER_ID, TARGET_ID, NEW_VALUE, STAFF_COMMENT)
values (now(), 101, :sysuser, 'smsmgr.pl:sms_smart.pl', :domain, :cgroup, :customer, :customer, :customer, 'new customer is created via SMS-gate')

my $dbwrap = new ...;
my $sql1 = "insert into table1 (type, cmd) values (:type, :cmd) return user_id into :user_id";
my $sql2 = "insert into table2 (user_id, field_id) select :user_id, field_id from ref_fields";
my $sql3 = "update table3 set value = value + :amount, last_type = :type where reg_id = :registry return value into :amount";
...
my $params = {}; #$params это "куча" со параметрами для параметрических in и out запросов
$params->{'type'} = 'type1';
$params->{'cmd'} = 'cmd1';
$dbwrap->query($sql1, $params); #$params передается по ссылке, в хеш будет добавлен результат :user_id
$dbwrap->query($sql2, $params); #в запросе будет использована переменная user_id, полученная ранее
$params->{'amount'} = 100;
$params->{'registry'} = 1;
$dbwrap->query($sql3, $params); #в запросе будет использована ранее установленная переменная type и только что установленные параметры amount и type

...
	my $q = $dbh->prepare($sql);
	if ($store && ref($store) eq 'HASH')
	{
		$params = [];
		while ($sql =~ m/:(\w+)/gm)
		{
			push @$params, $1;
		}
		foreach my $fld (@$params)
		{
			$store->{$fld} = undef unless (exists($store->{$fld}));
			$q->bind_param_inout(":$fld" => \$store->{$fld}, 100);
		}
	}
...
	my $ret = $q->execute();
...

#$bm - класс-обертка для работы с БД
my %argSystem = ('sysuser'=>1, 'domain'=>1, 'group'=>1);
my %argPrepare = ('id'=>undef, 'login'=>undef, 'password'=>undef, 'clock'=>undef, 'begin'=>undef, 'expire'=>undef);
$bm->query($sqlPrepare, \%argPrepare);
my %argCustomer = ('domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>undef);
$bm->query($sqlCustomer, \%argCustomer);
my %argCustomerLink = ('customer'=>$argCustomer{'customer'}, 'id'=>$argPrepare{'id'});
$bm->query($sqlCustomerLink, \%argCustomerLink);
my %argCustomerData = ('customer'=>$argCustomer{'customer', 'login'=>$argPrepare{'login'}, 'phone'=>$argPrepare{'phone'});
$bm->query($sqlCustomerData, \%argCustomerData);
my %argCustomerLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'new customer is created via SMS-gate');
$bm->query($sqlCustomerLog, \%argCustomerLog);
my %argAccount = ('domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'credit'=>1000, 'account'=>undef);
$bm->query($sqlAccount, \%argAccount);
my %argAccountLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'new account is created via SMS-gate');
$bm->query($sqlAccountLog, \%argAccountLog);
my %argAccountBalance = ('domain'=>$argSystem{'domain'}, 'account'=>$argAccount{'account'});
$bm->query($sqlAccountBalance, \%argAccountBalance);
my %argAccountCredit = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'account'=>$argAccount{'account'}, 'credit'=>$argAccount{'credit'}, 'start'=>$argPrepare{'clock'}, 'expire'=>$argPrepare{'expire'}, 'credit_id'=>undef);
$bm->query($sqlAccountCredit, \%argAccountCredit);
my %argAccountCreditLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'credit'=>$argAccount{'credit_id'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'new promised payment is created via SMS-gate');
$bm->query($sqlAccountCreditLog, \%argAccountCreditLog);
my %argAccountStatus = ('account'=>$argAccount{'account'});
$bm->query($sqlAccountStatus, \%argAccountStatus);
ny %argService = ('type'=>1, 'tariff'=>1, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'login'=>$argPrepare{'login'}, 'password'=>$argPrepare{'password'}, 'status'=>1, 'service'=>undef);
$bm->query($sqlService, \%argService);
my %argServiceLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'service'=>$argService{'service'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'new service is created via SMS-gate');
$bm->query($sqlServiceLog, \%argServiceLog);
my %argServiceStatus = ('service'=>$argService{'service'}, 'status'=>$argService{'status'});
$bm->query($sqlServiceStatus, \%argServiceStatus);
$bm->query($sqlServiceActualStatus, \%argServiceStatus);
my %argServiceTariff = ('service'=>$argService{'service'}, 'tariff'=>$argService{'tariff'}, 'stariff'=>undef);
$bm->query($sqlServiceTariff, \%argServiceTariff);
my %argCharges = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'service'=>$argService{'service'}, 'amount'=>100, 'cid'=>undef);
$bm->query($sqlCharges, \%argCharges);
my %argChargesBill = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'service'=>$argService{'service'}, 'amount'=>100, 'cid'=>$argCharges{'cid'});
$bm->query($sqlChargesBill, \%argChargesBill);
my %argChargesLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'service'=>$argService{'service'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'add service creation fee');
$bm->query($sqlChargesLog, \%argChargesLog);
my %argFee = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'service'=>$argService{'service'}, 'amount'=>200, 'fid'=>undef);
$bm->query($sqlFee, \%argFee);
my %argFeeBill = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'service'=>$argService{'service'}, 'amount'=>200, 'stariff'=>$argServiceTariff{'stariff'}, 'fid'=>$argFee{'fid'});
$bm->query($sqlFeeBill, \%argFeeBill);
my %argFeeLog = ('sysuser'=>$argSystem{'sysuser'}, 'domain'=>$argSystem{'domain'}, 'group'=>$argSystem{'group'}, 'customer'=>$argCustomer{'customer'}, 'account'=>$argAccount{'account'}, 'service'=>$argService{'service'}, 'source'=>'smsmgr.pl:sms_smart.pl', 'message'=>'add service fee');
$bm->query($sqlFeeLog, \%argFeeLog);
$bm->query($sqlAccountStatus, \%argAccountStatus);
$bm->commit();

#$bm - класс-обертка для работы с БД
my %argCommon = ('sysuser'=>1, 'domain'=>1, 'group'=>1, 'type'=>1, 'tariff'=>1, 'credit'=>1000, 'charge'=>100, 'fee'=>200);
$bm->query($sqlPrepare, \%argCommon);
$bm->query($sqlCustomer, \%argCommon);
$bm->query($sqlCustomerLink, \%argCommon);
$bm->query($sqlCustomerData, \%argCommon);
$bm->query($sqlCustomerLog, \%argCommon);
$bm->query($sqlAccount, \%argCommon);
$bm->query($sqlAccountLog, \%argCommon);
$bm->query($sqlAccountBalance, \%argCommon);
$bm->query($sqlAccountCredit, \%argCommon);
$bm->query($sqlAccountCreditLog, \%argCommon);
$bm->query($sqlAccountStatus, \%argCommon);
$bm->query($sqlService, \%argCommon);
$bm->query($sqlServiceLog, \%argCommon);
$bm->query($sqlServiceStatus, \%argCommon);
$bm->query($sqlServiceActualStatus, \%argCommon);
$bm->query($sqlServiceTariff, \%argCommon);
$bm->query($sqlCharges, \%argCommon);
$bm->query($sqlChargesBill, \%argCommon);
$bm->query($sqlChargesLog, \%argCommon);
$bm->query($sqlFee, \%argCommon);
$bm->query($sqlFeeBill, \%argCommon);
$bm->query($sqlFeeLog, \%argCommon);
$bm->query($sqlAccountStatus, \%argCommon);
$bm->commit();