Setup and code support for my Perl testing class