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

use Bio::DB::GenBank;
use Bio::SeqIO;  
use Text::Wrap; 

my $gb= new Bio::DB::GenBank; 

my $id='7157'; 

my $seq = $gb->get_Seq_by_gi($id); 

print "\n seq: $seq\n"; 

exit;