$pid=open WRITETOME, "|programname arguments" or die "Couldn't fork process";
print WRITETOME "write this\n";
close WRITETOME;