perl Class-WhiteHole