#!/usr/bin/perl
use Bio::SeqIO;
use Bio::Seq;

$in = Bio::SeqIO->new(-file=>'nuc.fasta', -format=>'Fasta');
while ( $seqobj = $in->next_seq() ) {
	print "Seq ID: ", $seqobj->display_id(), "\n";
	print "Seq Desc:\n", $seqobj->desc(), "\n";
	print "Sequence:\n", $seqobj->seq(), "\n\n";
	
	print "\nReverse Complement:\n", $seqobj->revcom()->seq(), "\n";
	print "\nTranslation:\n", $seqobj->translate()->seq(), "\n";
}