#!/usr/bin/perl 
use strict;
use warnings;
use Bio::DB::GenBank;
# Create a new GenBank database object
my $db = Bio::DB::GenBank->new;
# Desired GenBank accession number
my $accession = 'NM_000059.4'; 
# Retrieve the sequence object
my $seq = $db->get_Seq_by_acc($accession);
# Print the sequence display ID
if ($seq) {
    print "\n Sequence ID: ", $seq->display_id, "\n";
    # You can access other information like the sequence itself:
     print "\n Sequence: ", $seq->seq, "\n";
    # To save the sequence to a FASTA file:
     use Bio::SeqIO;
     my $seq_out = Bio::SeqIO->new(-file => ">your_sequence.fasta", -format => 'fasta');
     $seq_out->write_seq($seq);
} else {
    print "\n Could not retrieve sequence for accession: $accession\n"; } 
exit;