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