Select Code to Download

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

$lis->close();