#! /local/bin/perl -w
use strict;
use Bio::Seq;
use Bio::SeqIO;
use Bio::DB::GenBank;

# define a DNA sequence object with given sequence
my $seq = Bio::Seq->new('-seq'=>'actgtggcgtcaact', 
	'-desc'=>'Sample Bio::Seq object', 
	'-display_id' => 'somethingxxx', 
	'-accession_number' => 'accnumxxx', 
	'-alphabet' => 'dna' ); 
my $gb = new Bio::DB::GenBank(); 

$seq = $gb->get_Seq_by_id('MUSIGHBA1'); #returns Seq object
$seq = $gb->get_Seq_by_acc('AF303112'); #returns Seq object
# this returns a SeqIO object : 
my $seqio = $gb->get_Stream_by_batch([ qw(J00522 AF303112)]); 
exit; #bioperl3.pl
