perl socket 返回发送成功数据的长度

[root@jxglapp1 mon]# cat SendDX.pl 
    use IO::Socket::INET;
    use Data::Dumper;
    $|=1;
    $sock = IO::Socket::INET->new(PeerAddr => '10.3.229.1',
                                   PeerPort => '745',
                                   Proto=>'tcp'
                               ) or die "$!
";
  my $tab="	";
  my $data="0Xd$tab";
     $data .="5555$tab";
     $data .="$tab";
     $data .="N$tab";
     $data .="999$tab";
     $data .="18072722237$tab";
     print $data."
";
     chomp $data;
   print length($data);
   print "
";
   print $sock->send("$data");
   close ($sock);
[root@jxglapp1 mon]# perl SendDX.pl 
0Xd	5555		N	999	18072722237	
29
29[root@jxglapp1 mon]# 

$sock->send("$data") 返回值通过这个返回

如果失败 －1 

29 返回发送成功数据的长度