use Statistics::R;
  
my $R = Statistics::R->new();
my $csvfile = "C:/Users/Anil/Desktop/sam.csv";

my @R_commands = (
    'library(gplots)',
    'library(RColorBrewer)',
    "all.data <- read.csv($csvfile)",
    'row.names(all.data) <- all.data$sample'
    'all.data <- all.data[, -1]'
    'data.prop <- all.data/rowSums(all.data)',
    'scaleyellowred <- colorRampPalette(c("lightyellow", "red"), space = "rgb")(100)',
    'heatmap(as.matrix(data.prop), Rowv = NA, Colv = NA, col = scaleyellowred)'
);

$R->run(@R_commands);
$R->stop();