#!/usr/bin/perl -w

use Bio::DB::GenBank;

$db_obj = Bio::DB::GenBank->new;

    for $seq (AJ866941,DQ445088) 
    {
      $seq_obj = $db_obj->get_Seq_by_acc($seq);
      print ">",$seq_obj->display_id,"\n",
             $seq_obj->seq,"\n";
    }