Hello all can anyone suggest me how to convert

XFMA file to converted to nexus or phylip for further phylogenetic analysis?

I have tried like this in bioperl but somehow its not converting properly.

use Bio::AlignIO;

$in  = Bio::AlignIO->new(-file => "test.xmfa" ,
                         -format => 'xmfa');
$out = Bio::AlignIO->new(-file => ">test",
                         -format => 'phylip');

while ( my $aln = $in->next_aln ) {
  $out->write_aln($aln);
}

Thanks advance