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

##</code><code>##

my $sel = new IO::Select(); 
$sel->add($lclient);              
if($lclient->connected){
          print "connected\n";   
          print "can read\n"  if  ($sel->can_read);
          print "can write\n"  if  ($sel->can_write);
          print "has exception\n"  if  ($sel->has_exception);
} else{
    print "not connected\n"
}