my $gb = new Bio::DB::SwissProt();
my $seq1 = $gb->get_Seq_by_Acc($id);
my $seqOut = new Bio::SeqIO(-format=>'swiss');
$seqOut->write_seq($seq1);