Medical-OPCS4 is a project mainly written in Perl, it's free.

A Perl wrapper around the OPCS-4 Classification for medical procedures.