sub open_named_pipe
{
  my $INFILE = shift;
  open (IN_FH,"<$INFILE") || die "Cannot open input file $INFILE for reading!\n";
  IN_FH->autoflush(1);
  return \*IN_FH;
}