As mentioned by davorg, you really just need to know how to use Test::Simple or Test::More (which is what I use). Try the code in the Synopsis section of those modules and you're on your way! :)
No good deed goes unpunished. -- (attributed to) Oscar Wilde