perl - 複数レコードの GenBank ファイルの解析

Question

入力ファイル ( http://biopython.org/DIST/docs/tutorial/examples/ls_orchid.gbk )内のすべてのレコードのシーケンス (ID を含む) を出力する次のコードを取得するのを手伝ってくれる人がいれば幸いです。:

use Bio::SeqIO;
use Bio::Seq;
use Bio::DB::GenBank;

$seq_obj = Bio::SeqIO->new(-file => "ls_orchid.gbk" , '-format' => 'genbank');
$seqio_obj2 = Bio::SeqIO->new(-file => '>sequence.fasta', -format => 'genbank' );

while ( my $seq = $seq_obj->next_seq() ) {
print "Sequence ",$seq->id ($seq_obj)"\n";
#print $seq_obj->seq,"\n";
$seqio_obj2->write_seq($seq_obj);
}

次のように、純粋なシーケンス (できればヘッダー付き) で構成される出力を見たいと思います。

seq1:
ATTCGCTGCATGACAT..........
Seq2:
ACTGCGATGGATGGAT..

ありがとうございました