#!/usr/bin/perl -s 
use jspell;

jspell_dict("port");   # select portuguese dictionary

while(<>){ chop;
  for $a(fea($_)){
     print "$_:",($a->{rad}||$_), ":",jspell::cat2small(%$a),"\n"} 
}