You might want to check out the code for Class::Singleton which keeps the instance in a package variable for each sub-class, it also gives you the flexibility of how you create each sub-classes instances.

/J\