#!/usr/bin/perl -s 
use strict;
use warnings;
use Lingua::Jspell;

our ($tag, $tagrad,$p,$d);

$d ||= "port";

my $pt = Lingua::Jspell->new($d);
$pt->setmode({flags => 1});     # show  feature "flag" in output

while(<>){
  chop;
  if($tag){  print join(" ",$pt->featags($_)). "\n"}
  elsif($tagrad){  print join(" ",$pt->featagsrad($_)). "\n"}
  elsif($p)    {  print Lingua::Jspell::any2str([$pt->fea($_)],"compact") . "\n"}
  else    {  print Lingua::Jspell::any2str([$pt->fea($_)],"f1") . "\n"}
}