#!/usr/bin/perl -w
# fifo-client.pl -- Sendet Auftraege in eine FIFO hinein.

use strict;
use Data::Dumper;

my $fifo = "/tmp/fifo-demo";
my $string = shift;


#sysopen(FIFOFD, FIFOPATH, O_WRONLY) or die "can't write: $!\n";
open (FIFOFD, ">$fifo") or die "could not open fifo: $!\n";
print FIFOFD "$string\n";
close (FIFOFD);