$server = new IO::Socket::INET(Listen => 1, LocalPort => 8080) || die "$!";
    $sel = new IO::Select( $lsn );

    while(@ready = $sel->can_read) {
        foreach $fh (@ready) {
            if($fh == $server) {
                # Create a new socket
                $new = $lsn->accept;
                $new->blocking(0);
                $sel->add($new);
            } else {
                # Process socket
                print "ERROR ",$fh->error," OPENED ",$fh->opened,"\n";
                print $fh -> getlines;
            }