use utf8;use Tk;
  $f="STIXGeneral";$c="\n";
  $s="\x{2014}"x2;$s=$c.$s."o".$s.$c;$p=" (Perl-Tk)";
  $s=$f.$p.$s."A B C D \x{300}x \x{302}x \x{303}x ".
    "\x{304}x".$c."\x{210C} \x{210E} \x{2112} \x{2115} ".
    "\x{2202} \x{2207} \x{2211} \x{221A}".$s;
  $m=MainWindow->new(-title=>'STIXtest (P. Assouad)');
  $m->geometry('400x400+40+40');
  $t=$m->Scrolled('Text')->pack();
  $t->configure(-font=>"{".$f."} 18 {normal}");
  $t->insert('1.0',$s); MainLoop();