Select Code to Download

my $R = Statistics::R->new();
$R->set( 'filenames', \@filenames );
...
      width    = $plot_width,
      height   = $plot_height)`
);

# Array of R commands:
my $out1 = $R->run(
...
print('ok')
EOF
my $out2 = $R->run($cmds);