open FIFO, '/tmp/bcp-pipe' or die "cannot open /tmp/bcp-pipe: $!\n";
while (<FIFO>) {
  print "bcp-data: $_";
}
close FIFO;