open(Out1, “>$rand".".R"); 
print Out1 "source('$Bin/varNumber2Rel.R')\n";
print Out1 "varNumber2Rel('".$options{'o'}.".varNumber'".", ".$options{'P0Cutoff'}.", ".$options{'p'}.")";
close(Out1);