Following code retrieves a Genbank sequence and creates an object.

#!/usr/bin/perl
use strict;
use warnings;
use Bio::DB::GenBank;
use Data::Dumper;

# create a GenBank object
my $a = Bio::DB::GenBank->new;
my $b = $a->get_Seq_by_acc($ARGV[0]);

# Dump Data
print Dumper($b);

usage:

$ perl retrieve_genbank_sequence.pl EW695397

Dumper prints the contents of an object.