[Perl] If a transaction is being performed, cci_disconnect() can't work correctly.