简单的SOCK问题!

服务器端代码:

#!/usr/bin/perl
   use IO::Socket;
              
         $sock = IO::Socket::INET->new (LocalHost => '127.0.0.1',
                                       LocalPort => '55555',
                                       Proto     => 'tcp',
                                       Listen    => 5,
                                       Reuse     =>  1
                                       );
          die "Socket could not be created.Reason!" unless $sock;
   while (1) {
    $new_sock = $sock->accept();
       while ($data = <$new_sock> {
           
               print "$data\n";
            $aa = "How are you!";
               send(NEW_SOCK,$aa,0);

         }
        }
  close ($sock);

客户端代码:

#!/usr/bin/perl
     use IO::Socket;
         $sock = IO::Socket::INET->new (PeerAddr => '127.0.0.1',
                                       PeerPort => '55555',
                                       Proto     => 'tcp',
                                       );
          die "Socket could not be created.Reason!" unless $sock;
   $msg = "hello world!";
$sock->print($msg);
recv(SOCK,$tt,100,0);
print $tt;
  close ($sock);

现在问题是:

程序可以正常运行,服务器端可以正常显示客户端发送的信息.但是客户端就是不能收到服务器发来的信息.请大侠帮忙改一下.看问题出在哪里.谢谢了.初学,不是很懂.

首先，为你的程序加上


（说过多少遍了）

其次，
recv(SOCK,$tt,100,0);
send(NEW_SOCK,$aa,0);
这些都算怎么回事儿？

最后强调一下，先学爬，再学走和跑。
连基本的语法都没搞懂，连什么是文件句柄都没搞懂，一上来就搞 socket 编程，不是个好的学习方法。

LS说的确实没错
recv(SOCK,$tt,100,0);
print $tt;
close ($sock);
SOCK是句柄还是$sock是句柄？
去CPAN看下文档

呵呵，我也是新手，一步一个脚印！