perl-class-singleton