#!/usr/local/bin/perl -w
use strict;

use Bio::SeqIO;

my $seqobj;

print "please type in the name of a file\n";
my $file = <STDIN>;

my $seqio  = Bio::SeqIO->new (-format => 'GenBank',
                              -file =>   $file);
while ($seqobj = $seqio->next_seq())
{
  printf "Sequence: %s\n",$seqobj->seq;

  # I'm not sure what you need other than the
  # sequence - here's some examples:
  printf "Display ID:  %s\n",$seqobj->display_id;
  printf "Description: %s\n",$seqobj->desc;
  printf "Division:    %s\n",$seqobj->division;
  printf "Accession:   %s\n",$seqobj->accession;
}