#!/usr/bin/perl -w

use strict;

my $FIFO = "$ENV{HOME}/pipe";

while (1) {
	unless (-p $FIFO) {
	unlink $FIFO;
	system('mknod', $FIFO, 'p')
		&& die "Can't make pipe $FIFO: $!";
	}

	open (FIFO, "$FIFO") || die "Can't open $FIFO: $!";
	while (<FIFO>) {
		chomp;
		print "Command sent: $_\n";
	}
	close FIFO;
}