post 'howto implement factories in perl'