use Bio::SeqIO;

my $in_obj  = Bio::SeqIO->newFh( '-file'   => $infile_name,
                                 '-format' => $infile_format );
my $out_obj = Bio::SeqIO->newFh( '-file'   => '>' . $outfile_name,
                                 '-format' => $outfile_format );

while( <$in_obj> )
{
    print $out_obj $_;
}