#!/usr/bin/perl -w

open(PIPE, "perl pwrite.pl |") || die "Fehler!";
while(<PIPE>) {        # Ausgabe zeilenweise auslesen
    chop;              # Zeilenumbrüche entfernen
    print "pwrite.pl sagte: '$_'\n";
}
close(PIPE) || die "Fehler!";