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

use Bio::DB::GenBank;
use Bio::SeqIO;  
use Text::Wrap; 

 my $acc="NC_027152.1"; 

 my $gb= new Bio::DB::GenBank;
 my $seq1 = $gb->get_Seq_by_acc($acc);
 my $sequence = $seq1->seq; 

print "\n Complete sequence:
$sequence\n"; 

# code for intergenic sequence needed

# code for intron sequence needed

exit; 
#################