perl Class-C3-XS