my $lis = IO::Socket::INET->new(LocalPort => $portnumber,
                                Listen    => 10 );

##</code><code>##

$lis->close();