The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl

use Locale::Maketext::Gettext;
my %h = read_mo(shift);
foreach(sort keys %h){print $_ . " " . $h{$_} . "\n";};