open PROG "perl foo.pl param1 | " or die "...";