#!c:/Strawberry/Perl/bin/perl
use strict;
use warnings;
use Statistics::R;
use CGI qw(:standard escapeHTML -utf8);

print header(-type=>'text/html', -charset=>'utf-8');
my $R = Statistics::R->new();
print "R created\n";
$R->run('options(scipen = 999)');   #  disabling scientific notation in R.
print "R initialised\n";

##</code><code>##

C:\Information\mgroot\cgi-bin>perl DebugR.cgi
Content-Type: text/html; charset=utf-8

R created
R initialised

##</code><code>##

[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] ack Invalid argument: write( 5, 'cmd<-c("write(ngettext(1, \\"Error: \\", \\"\\", domain=\\"R\\"), stdout())"); write("\\1",stdout())
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] ' ) at C:/Strawberry/perl/vendor/lib/IPC/Run/IO.pm line 549.
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] Warning: unable to close filehandle GEN10 properly: Bad file descriptor during global destruction.
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] Warning: unable to close filehandle GEN5 properly: Bad file descriptor during global destruction.