$command ="nice R --slave --args $DirName $SubDirName < read_parameters_by_file_batch.R ";
system($command);

##</code><code>##

	$cmd = "perl /var/www/cgi-bin/vcgi/ProcessFiles_test.pl $UploadDir $DirName $TotFiles &";
	system ($cmd);
	fork && exit;