my $form_accession_number = $q->param('accession');
my $gb_obj = new Bio::DB::GenBank();
$gb_obj = $gb_obj->get_Seq_by_acc($form_accession_number);
my $input_seq = $gb_obj->seq();