Create read_fasta.pm