I'm woefully ignorant in this area, but perhaps you will find what you seek somewhere in Math::Project3D. (this helps to make this a perl-relevant thread...)