Select Code to Download

C:\test>start /b lsn.pl 25000

...

C:\test>taskkill /f /pid 12100
SUCCESS: The process with PID 12100 has been terminated.

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