open my $x, "|-", "R" or die "Can't launch R: $!";
pritn $x $your_data;