#!/usr/bin/perl
use warnings;
use strict;

use Bio::DB::GenBank;
use Bio::SeqIO; 
use Text::Wrap;
 
my $gb= new Bio::DB::GenBank;

my $acc="NC_025572"; 

my $seq1 = $gb->get_Seq_by_acc($acc);

my $desc=$seq1->desc();

print "\n $desc\n";  

exit;