New Perl class and test file