#!/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; 
##</code><code>##

 C:\Users\x>cd d*

C:\Users\x\Desktop>g2.pl

 seq: Bio::Seq::RichSeq=HASH(0x780b234)

C:\Users\x\Desktop> 
##</code><code>##

 
GenBank ID
NM_000546.5
NM_001025366.2