# script for looping over genbank entries, printing out name

use Bio::DB::Genbank;
use Data::Dumper;

$gb = new Bio::DB::GenBank();
$sequence_object = $gb->get_Seq_by_id('JQ072023');
print Dumper ($sequence_object);
$seq1_id = $sequence_object->display_id();
$seq1_s = $sequence_object->seq();

print "seq1 display id is $seq1_id \n";

print "seq1 sequence is $seq1_s \n";