#!/usr/bin/perl

use strict;
use warnings;
use POSIX 'mkfifo';

my $fifo = "/tmp/named.pipe";
unless ( -p $fifo ) {
    mkfifo( $fifo, 0666 ) or die $!;
}
while (1) {
    open( my $fh, '>', $fifo );
    my $t = scalar localtime;
    warn "writing to fifo at $t\n";
    print $fh "written at $t\n";
    close $fh;
    sleep 2;
}