#########################################################
# Perl code to get complete sequence in FASTA format from GenBank page
#########################################################
#!/usr/bin/perl
use warnings;
use strict; 
use Bio::DB::GenBank;
use Bio::SeqIO;   
my $gb =new Bio::DB::GenBank; 
my $acc="NM_021817";  
my $seq1=$gb->get_Seq_by_acc($acc);
my $sequence=$seq1->seq();
my $description=$seq1->desc();
print "\n
$description
$sequence\n"; 
exit;