Pregunta de entrevista de ThinkGeek

Write a test case using Perl's test suite.