Perl Coding/Syntax

Part 1:

Write a module that contains a function, translate_dna(), that translates an open reading frame into a predicted protein sequence when given a DNA input. That is, given a chunk of DNA which contains a start codon (ATG) followed some distance later by an in-frame stop codon, this function should return the predicted protein encoded by that ORF. (Don't worry about introns.) Your code should handle anomalous situations such as the input not having a start codon, the input having a start codon but no stop codon, non-nucleotide characters in the input, etc. In each case, return the appropriate amount of information. (E.g., non-nucleotide character might result in a die(); lack of a stop codon just means you translate up to the end of the DNA and return what you can; etc.)

Part two:

Write a test script using Test::Simple that exercises the module from the previous question. Your module should contain at least five tests.