Write a Perl script that counts the number of matches and mismatches 
between two DNA sequences and prints them to the screen.

The input is in FASTA format in a file called "dna.txt".

For example if the file contains 

>human
ATTCTA
>mouse
ATACTT

then the output should be 

Number of matches is 4 and mismatches is 2

Submit a hardcopy in class on Oct 2nd.