#!/usr/bin/perl -w
use Bio::DB::GenBank;

$db_obj = Bio::DB::GenBank->new;

$seq_obj = $db_obj->get_Seq_by_acc(EU864037);

$sequence = $seq_obj->seq;
$pos = length($sequence)-20;            #go to position from end
$seqend = substr($sequence,$pos,20);

print "whole sequence: $sequence\n\n",
       "Just the end: $seqend \n"; #just for verifying