#! /usr/bin/perl -w

##### Program description #######
#
# Title:     bp_ex3.pl
# Author(s): Mattias Ohlsson
# Description:
#  A small perl program that downloads two GenBank records from NCBI. 
#  The records are displayed on the screen. Bio::DB:GenBank is used here.
#
##################################

use strict;
use Bio::SeqIO;
use Bio::DB::GenBank;

my $gb = Bio::DB::GenBank->new();
my $out = Bio::SeqIO->new(-fh => \*STDOUT, -format => 'GenBank');

my $seqio = $gb->get_Stream_by_gi(['AA484435', 'AA484440']);

while ( my $seq = $seqio->next_seq() ) {
    $out->write_seq($seq);
    print "----------------------------------\n";
}





