/usr/share/doc/libintl-perl/examples