#!/usr/bin/perl -w
use strict;
use Bio::SeqIO;

my $gbkFile = shift or die "Miss Genbank File!";
my $outDir = shift or die "Miss Output Directory!";

my ($id) = ($gbkFile =~ /contig(\d+)|ctg(\d+)/i);
my $name = "Contig".$id;

my $fnaFile = $outDir."/n/".$name;
my $fptFile = $outDir."/p/".$name;

my $gbk = Bio::SeqIO->new('-file' =>$gbkFile, '-format'=>'genbank');
my $fna = Bio::SeqIO->new('-file' =>">$fnaFile", '-format' => 'fasta');
my $fpt = Bio::SeqIO->new('-file' =>">$fptFile", '-format' => 'fasta');

my $seq = $gbk->next_seq;
my $proteinSeq = $seq->translate();

$fna->write_seq($seq);
$fpt->write_seq($proteinSeq);