用IO::Socket写的简单服务器打印client发来的信息为乱码

如题，非常感谢！

如题，不客气。

2008年CU经典对话
LZ啥信息都冒写出来,谁晓得哦~

#client

use IO::Socket;
my $socket;
local $| =1;
foreach(1..20){
$socket= new IO::Socket::INET (
              PeerAddr => "127.0.0.1",
              PeerPort => 1025,
              Proto => "tcp",
              Timeout => 2,
              Type => SOCK_STREAM)||print "------";

print $socket 12345;
}


#--------------------------------------------


#server

use IO::Socket;

$socket = IO::Socket::INET->new( LocalHost => "127.0.0.1",
                                LocalPort => 1025,
                                Proto => 'tcp',
                                Reuse => 1,
                                Listen => 10 );


while ($socket->accept()) {
print $socket->accept(),"\n";
}

葫芦娃帅哥，心情不太好啊。那位大哥给指点一下啊！谢谢。

12345 .......加俩引号吧