#! /usr/bin/perl -w

use strict;

my $fifo = "/var/log/net-acct/net-acct.log";

while (1) {
        open(FIFO, "< $fifo") or die "Can't open fifo $fifo: $!\n";
        while (<FIFO>) {
                print;
        }
        close(FIFO) or die "Can't close fifo $fifo: $!\n";
}