#!/usr/bin/perl

use Bio::Seq;
use Bio::SeqIO;

$inFile = shift;
$outFile = shift;

my $seq_in = Bio::SeqIO->new(-file => "<".$inFile,
     	                     -format => "fasta");

my $inseq = $seq_in->next_seq;

($id) = ($inseq->id =~ /(.*)\.n/);
$id .= ".p";
$orfSeq = Bio::Seq->new(-seq => $inseq->seq,
			-alphabet => "dna"
		        );

$orfSeq->id($id);
my $seq_out = Bio::SeqIO->new(-file   => ">$outFile",
			      -format => "fasta");
$seq_out->write_seq($orfSeq->translate);