#!C:\perl\bin\perl
    use IO::Select;
    use IO::Socket;
    my @data;
    $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 9900);
    $sel = new IO::Select( $lsn );

    while(@ready = $sel->can_read) {
        foreach $fh (@ready) {
            if($fh == $lsn) {
                # Create a new socket
                $new = $lsn->accept;
                $sel->add($new);
        $addr=$new->peerhost;
        #    push(@data,($addr,
        print "New Connection from $addr!\n";
            }
            else {
        $test=<$fh>;
        if ($test) {
            print $test;
        } else {
                $sel->remove($fh);
                $fh->close;
        }
            }
        }
    }