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

my $bio_seq = Bio::SeqIO->new(
                  -file => '>outputfilename', 
                  -format => 'Fasta'
              );