open my $pipe , '|' , $scriptname or die "...";
print $pipe "This goes to the parallel program's STDIN".

...