print WRITER $zeile; # send child a command
$| = 1;              # flush pipe