IO:Socket C/S问题

IO:Socket C/S问题
server.pl
#!/usr/bin/perl
use IO::Socket;
$sport=800;
$socket=IO::Socket::INET->new
(
proto=>'tcp',
LocalPort=>$sport,
Type=>SOCK_STREAM,
Listen=>5
) or die "can not open port $sport\n";

while ($client=$server->accept())
{
unless(defined($child_pid=fork())) {die "Can not fork";}
if($child_pid)
{
while($line=<$client>)
{
print "Read this from client:$line";
}
}
else
{
while ($line=<>)
{
print $client $line;
}
}
}
错误提示：Can,t call method "accept" on an undefined value at server.pl line 12.
我是初学者谁，以上是我从perl技术内幕里抄的一个TCP服务端代码，能给我说一下错在哪！

在这里程序的第12行，无法.
在这里程序的第12行，无法调用方法accept作用于一个未定义的对象$server

你少了两步，bind 和　lis.
你少了两步，bind 和　listen.

应该用$socket调用accept(.
应该用$socket调用accept()方法。