You can use Object::Iterate under the same terms as Perl itself.