use Term::Cap;
our $OFS=Tgetent Term::Cap;