open (TOOL, "| /usr/local/bin/R --vsize=500M --nsize=5000k");

# commands to send
print TOOL <<"ENDE";
cmd1
cmd2
cmd3
ENDE
close TOOL;