#!/usr/bin/env perl

#
#  This script is for the conversion of sequences from one to another format.
#

use strict;
use warnings;
use Bio::SeqIO;

die ("USAGE: $0 <input_file> <input_file_format> <output_file> <output_file_format>\n"),
if (@ARGV != 4);

my ($infile,$informat,$outfile,$outformat) = @ARGV;

my $in = Bio::SeqIO->new(-file => $infile, -format => $informat);
my $out = Bio::SeqIO->new(-file => ">$outfile", -format => $outformat);
while (my $seqobj = $in->next_seq) {
	$out->write_seq($seqobj);
	}