exec ("perl Whole_Program.pl $input_file $seqs_number $prior_info $run_mode $txtbox1 $txtbox2", $res_total, $ret);