Select Code to Download

#!/usr/bin/perl
use strict;
...

system (qq("svr_submit_RAST_job --user "$username" --passwd "$Password
+" --fasta "$fasta" --domain "$domain" --genetic_code "$Genetic_code")
+);