while(@ready = $sel->can_read) {
        if($fh == $lsn) {
            # Accept the socket
            $new = $lsn->accept;
            $sel->add($new);
            print "New client accepted\n";

            print $new "abc\n";
            print $new "abcd\n";
            print $new "abcde\n";
            print $new "abcdef\n";
        }
         else {
            # Process socket
            $a = <$fh> ;
             if (not defined $a)  {
                $sel->remove($fh);
                $fh->close;
                print "Client closed\n";
             }
             else  {
                print $a;
             }
         }
}