#!/usr/bin/perl use strict; use Bio::DB::Registry; use Bio::SeqIO; use strict; my $registry = new Bio::DB::Registry(); print "services are ", join(',', $registry->services), "\n"; my $db = $registry->get_database("embl"); my $seq = $db->get_Seq_by_id("J02231"); my $out = new Bio::SeqIO; $out->write_seq($seq);