#!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";