Help for this page
print "$unitId: Command response: $_" while <$client>;
... if( $lclient->connected ){ ... while( <$lclient> ) { ...