[--- piper.pl ---]

open (P, "| from.pl")
while (<P>) {
	print $_;
	$count++;
}
close (P);
print "$count\n";




[--- from.pl ---]

print "hello\n";
print "there,\n";
print "fellow\n";
print "monks\n";