# Array of R commands:
my $out1 = $R->run(
  q`a <- 2`,
  q`b <- 5`,
  q`c <- a * b`,
  q`print("ok")`
);

# Here-doc with multiple R commands:
my $cmds = <<EOF;
a <- 2
b <- 5
c <- a * b
print('ok')
EOF
my $out2 = $R->run($cmds);