#!/usr/bin/perl

use Lingua::PT::PLN;
my $file=shift or die;
cqptokens($file)