Mt-plugin-entry-category-id is a project mainly written in Perl, it's free.

This is Movable Type plugin for EntryCategoryID function tag.