Perl module to install an accessor subroutine