perl Object-MultiType