use strict;
use warnings;
use POSIX qw(mkfifo);

my $path = "./test_fifo";

unless ( -p $path) {
    mkfifo($path, 0666) or die "can't mknod fpath: $!";
    warn "$0: created $path as a named pipe\n";
}
while (1) {
    open(FIFO, "+> $path")
        or die "Couldn't open $path for writing: $!\n";
    #truncate(FIFO, 0) or die "Can't reduce size to 0 $!\n";
    print FIFO "The current time is ", scalar(localtime), "\n";
    close FIFO;
    sleep(1);
}