perl中连接AMI

sub connect_ami
{
my ? ?($res,$ret1);
my ? ?%info = (host=>'localhost',
? ? ? ? ? ? ? ?port=>5038,
? ? ? ? ? ? ? ?user=>'user',? ? ? ? ? ? ? ? #manager中的用户名
? ? ? ? ? ? ? ?secret=>'secret' ? ? ? ? ?#manager密码
? ? ? ? ? ? ? );
#CONNECT


#CONNECT
my ? ?($host,$addr,$msg);
? ? ? $host = inet_aton($info{'host'});
? ? ? socket($SOCK,AF_INET,SOCK_STREAM,getprotobyname('tcp'));
? ? ? $addr = sockaddr_in($info{'port'},$host);


? ? ? connect($SOCK,$addr) or die "Can't Connect to Asterisk Manager Port : $!";


? ? ? $msg = <$SOCK>;
? ? ? if ($msg !~ /Asterisk Call Manager/){
? ? ? ? ? ? ?die "Connect not ok!";
? ? ? ? ? ? ?exit;
? ? ? }
? ? ? send($SOCK,"ACTION: LOGINrnUSERNAME: $info{'user'}rnSECRET: $info{'secret'}rnrn",0);
#my ? ?($res,$ret);
? ? ? $res = <$SOCK>;
? ? ? if ($res =~ /Success/){
? ? ? ? ? $ret1 = "a";
# ? ? ? ? ?print $ret1;
? ? ? }else{
? ? ? ? ? $ret1 = "b";

? ? ? }

? ? ? return $ret1; }