#!/usr/bin/perl -w

use Bio::DB::SwissProt;

$database = new Bio::DB::SwissProt;

$seq = $database->get_Seq_by_id('MALK_ECOLI');

print "Seq: ", $seq->accession_number(), " -- ", $seq->desc(), "\n";
