#!/usr/bin/perl

use strict;
use warnings;

use Bio::DB::GenBank;
use Bio::SeqIO;

my $output = Bio::SeqIO->new(-format=>"fasta",-file=>">output.fasta");
my $gb = Bio::DB::GenBank->new();
my $id = 'NC_000016';
my $seq = $gb->get_Seq_by_id($id);
$output->write_seq($seq);
exit;