perl的socket有关问题

perl的socket问题
perl技术内幕中的例题
#!perl
use   IO::Socket;
$server   =   IO::Socket::INET-> new
(
LocalPort   =>   1116,
Type   =>   SOCK_STREAM,
Reuse   => 1,
listen   => 5
)   or   die   "Could   not   open   port.\n ";
while   ($client   =   $server-> accept()){
print   "there   is   a   client   coming ";
}
为什么server不会挂在那边等待client接入   而是直接结束了程序  
迷茫了   向各位请教     谢谢了

[解决办法]
注意listen应该是首字母大写Listent