#Shell :
% mkfifo /path/to/named.pipe


#Reader: 
open(FIFO, "< /path/to/named.pipe")         or die $!;
while (<FIFO>) {
    print "Got: $_";
}
close(FIFO);

#Writer:

open(FIFO, "> /path/to/named.pipe")         or die $1;
print FIFO "Smoke this.\n";
close(FIFO);