open(P, "perl from.pl |") or die "Can't pipe from from.pl: $?\n";
while (<P>) {
    print $_;
    $count++;
}
close(P) or die "Can't pipe from from.pl: $?\n";
print "$count\n";