#!/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();

while(<STDIN>){
	chomp;
	my $id = $_;
	my $seq = $gb->get_Seq_by_id($id);
	$output->write_seq($seq);
}