perl Class-Container