#!/usr/bin/perl -w

	use strict;
	use Bio::SeqIO;

	my $in  = Bio::SeqIO->newFh (	-file => '< embl.dat',
					-format => 'embl');

	my $out = Bio::SeqIO->newFh (	-file => '> embl_seqs.fasta',
					-format => 'fasta');

	foreach ( <$in> ) {
		print $out $_;
	}

exit 0;

