我需要你在Perl写的非常短的脚本上的帮助/建议，以便通过SMPP协议发送短信。
我有一个完美正常工作的短信网关（通过HTML请求或通过网络界面发送短信），假设这个网关有IP 192.168.1.15。 它的SMPP服务正在侦听TCP 2775（我可以成功telnet到2775，所以我猜SMPP服务正在我的SMS网关上工作）
my $smpp = Net::SMPP->new_transmitter(192.168.1.15,
port=>2775,
system_id =>"administrator",
password =>"passwdexample") or die;
$resp_pdu = $smpp->submit_sm(destination_addr => '+400123456789',
short_message => 'test message') or die;
die "Response indicated error: " . $Resp_PDU->explain_status() if $resp_pdu->status;
当我运行脚本时，这里出现了错误：
响应指示错误：C：\ temp \ smpptest.pl行上给定命令（ESME_RINVBNDS TS = 0x00000004）的BIND状态不正确。
不幸的是，我在互联网上找不到这么多帮助，但根据这个链接：SMPP Errors Codes它说：
在处理任何其他请求之前，您必须先绑定。
但是，我的绑定是用new_transmitter完成的，此时我没有收到任何错误，所以我不明白它是如何绑定TCP会话的（我的凭据是纠正的，我在telnet会话中尝试过）。
这是我第一次使用这样的插件，所以也许我错过了一些东西，也许有人已经遇到了这个错误！
非常感谢你的帮助： - ）