#!/usr/bin/perl -w

use Bio::Perl;

$database="genbank";
@accessions = ( "bunch", "of", "accession", "numbers");

$count = 1;
$n = 0;

while ($accessions[$n]) {
		
		$id=$accessions[$n];
		$format="fasta";
		$sequence = get_sequence($database, $id);
		write_sequence(">-", $format, $sequence);
		$n++;
		$count++;
		sleep(1);

	}