q doesn't interpolate. You wanted qq instead or "..." like you used in the end.

Also, I would shy away from using backticks as your separator as that can be confused with qx.

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