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