Perl Class Builder