#!/usr/bin/perl -s

use POSIX qw(locale_h);
setlocale(&POSIX::LC_ALL, "pt_PT");
use locale;

our ($rs);

$/ = $rs ||  "";

use Lingua::PT::ProperNames;

printPN();
