#!/usr/bin/perl

use strict;
use warnings;

my $input = "/tmp/named.pipe";
die "$input is not really a named pipe\n" unless (-p $input);

while(1) {
    my $t = scalar localtime;
    warn "opening input at $t\n";
    open( my $p, "<", $input ) or die $!;
    $_=<$p>;
    print "got: $_"
}