my $file = '/usr/local/projects/file';
$R->send(qq{a<-read.table("$file")});