#!/local/bin/perl -w
# some substring operations

use Bio::DB::GenBank;
$gb = new Bio::DB::GenBank();            
$seq1 = $gb->get_Seq_by_acc('AF303112');

$seq2=$seq1->trunc(1,90);                       
print $seq2->seq(), "\n";

$seq3=$seq2->translate;
print $seq3->seq(), "\n"; 
exit;
