Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper \@xvalues, \@yvalues;

exit (0);

#args <- commandArgs(TRUE)
# This works okay but I would like to replace 10 as a parameter though
...
png(filename="plot.png", bg="transparent")
plot(x, y)
dev.off()