perl Class-Singleton