# in parent
open(CHILD, "|other_program arg1 arg2") or die "other: $!";
print CHILD $large_amount_of_data;
close(CHILD);

# in child
local $/;
$large_amount_of_data = <STDIN>;