A template for a Perl object based application