#pay attention to win32 doublequotes!

perl -MTk -e "$mw=tkinit;$t=$mw->Text(-font=>'Courier')->pack;$t->insert('end', $_.(' ' x (10 - length $_)).qq(xxx\n)) for qw (aaaa bbb cccccc);MainLoop"