#!/usr/bin/perl -s

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

our ($rs,$latin1);

if(not $latin1){
  binmode(STDOUT,":utf8") ;
  binmode(STDIN,":utf8") ;
}

$/ = $rs ||  "";

use Lingua::PT::ProperNames;

printPN(oco=>1);