my $tmp_str = $R->run(qq`print($varname)`);
   print $tmp_str . "\n" ;