A perlscript to keep a fastafile uppdated with sequences from emerencia