#!/usr/bin/perl

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

use Lingua::PT::PLN;

while(<>){
  print accent($_);
}