in reply to Access to single object from multiple other objects
Pass it as an argument, thats what argument passing is for
See http://perldesignpatterns.com/?SingletonPattern