my $file="/usr/local/projects/file";
my $command = q`a<-read.table($file)`;
print "Running [$command]\n";
$R->send($command);