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 $_;
}

##</code><code>##

	# print out the sequence
	my $nuc = 60;		# Number of nucleotides per line
	my $whole_pat = 'a10' x 6; # Pattern for unpacking a whole line
	my $out_pat   = 'A11' x 6; # Pattern for packing a line