$ cat process_blackhole.pl 
#!/usr/bin/perl -w

use strict;
$|=1;
my $fifo_file = "/var/log/blackhole.pipe";

my $fifo_fh;
open($fifo_fh, "+< $fifo_file") or die "The FIFO file \"$fifo_file\" is missing, and this program can't run without it.:$!";

# just keep reading from the fifo and processing the events we read
while (<$fifo_fh>) {
        chomp;
        print "read from pipe [$_]\n";
}

# should never really come down here ...
close $fifo_fh;
exit(0);