#!/usr/bin/perl 

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

my $in  = Bio::SeqIO->new(
          -file   =>  "/root/Desktop/seqIOnew.fasta",
          -format => 'FASTA');
my $out = Bio::SeqIO->new(
          -file   => ">/root/Desktop/new_out.log",
          -format => "EMBL" );                       
while ( my $seq = $in->next_seq() ) {
        print $out->write_seq($seq), "\n";
}