#!/usr/bin/perl -w

my $NamedPipe = "/home/test/perl/named-pipes/.to-monica"; 
print "Reading from $NamedPipe\n";

open(FIFO, "< $NamedPipe") || die "Cant open $NamedPipe: $!";

while(1)     #### This is UUUUGLY
{
   while(<FIFO>)
   {
      chomp;
      print "I got: [".$_."]\n";
   }
}

close FIFO;