Perl functions for converting monetary values to different formats.