$JobId = system (qq(svr_submit_job" -- user "$xxxx" --passwd ""xxxxx --fasta "$fasta"));
print "$JobID\n";
chomp($JobId);
system (qq("svr_status_job" $username" "$Password" "$JobID"));