sysread($rh,$buf,4096) || syslog ( "crit", "$prog : $!" );

##</code><code>##

       if($buf) {

##</code><code>##

           my $client_hostname=unpack('a*', $buf);
           $client_hostname =~ s/\s+$//g;