#!/usr/bin/perl
use strict;
use warnings;
use Tools::IO::FiFo;

my $file='test.fifo';

# neues FiFo Objekt
my $fifo=Tools::IO::FiFo->new($file);

# fifo öffnen
$fifo->open() or die("ERROR create fifo $file ($!)\n");

my $cnt=0;
while(1)
{
  # print Counter
  print $cnt++,"\n";

  # read fifo
  my $txt=$fifo->read();

  # wenn text empfangen
  if($txt)
  {
    print "$txt\n";

    # hier exit wenn String "quit" auftaucht
    last if($txt=~/quit/);
  }

  # alles andere...
  read_serial();
}

# fifo schießen
$fifo->close();

exit();

########################################################################

sub read_serial
{
  # dummy ...
  sleep(1);
}