Help for this page

Select Code to Download

Select or download this

 if($lclient->connected){
           print "1\n";   
         } else{
         print "not connected\n"
   }

Select or download this

my $sel = new IO::Select(); 
$sel->add($lclient);              
...
    print "not connected\n"
}