Perl test case suggestions?