#!/localperl/bin/perl
use strict;
use warnings;
use Bio::SeqIO;

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