pure perl implementation of GNU gettext