Something like this?

use 5.010;
use strict;

use Bio::DB::GenBank;

my $gb  = Bio::DB::GenBank->new();
my $seq = $gb->get_Seq_by_gi('405830'); # GI Number

say $seq->display_id;
say $seq->desc;
say $seq->seq;
[download]