#!/usr/bin/perl -w
use Data::Dumper;
use Lingua::PT::PLNbase;
use utf8::all;

for my $f(@ARGV){
  my   $tags = cqptokens({enc=>":utf8",outenc=>":utf8"},$f);
  print Dumper($tags);
}