IO::Socket::INET->new ( LocalPort => $port, Listen => 1 );

I debuged this and got this error strings..

$!--Bad file descriptor, $^E--An operation was attempted on something that is not a socket.