3D with Perl example may be usefull