Select Code to Download

#! perl -slw
use strict;
...
while( my $client = $lsn->accept ) {
    close $client;
}

C:\test>lsn 1025
Only one usage of each socket address (protocol/network address/port) 
+is normally permitted at C:\test\lsn.pl line 5.