$INFILE="/usr/bin/cat /var/adm/messages";
open($FH,"$INFILE|")