#!/usr/bin/perl
use warnings;
use strict;
use Statistics::R;

my $R = Statistics::R->new();

open FH, ">", "test1.txt" or die $!;
$R->startR;
open FH, ">", "test2.txt" or die $!;
$R->stopR;
open FH, ">", "test3.txt" or die $!;