#! /usr/bin/perl -w

##### Program description #######
#
# Title:     bp_ex7.pl
# Author(s): Mattias Ohlsson
# Description:
#   The shortest phylip to clustalw converter ever!!
#
##################################

use strict;
use Bio::AlignIO;

my $in  = Bio::AlignIO->new(-fh => \*STDIN,  -format => 'phylip');
my $out = Bio::AlignIO->new(-fh => \*STDOUT, -format => 'clustalw');

$out->write_aln( $in->next_aln() );
