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