#!/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";
}

##</code><code>##

------------- EXCEPTION: Bio::Root::Exception -------------
MSG: The sequence does not appear to be FASTA format (lacks a descriptor line '>')
STACK: Error::throw
STACK: Bio::Root::Root::throw /localperl/lib/site_perl/5.12.4/Bio/Root/Root.pm:368
STACK: Bio::SeqIO::fasta::next_seq /localperl/lib/site_perl/5.12.4/Bio/SeqIO/fasta.pm:127
STACK: tmhmm.pl:12
-----------------------------------------------------------