Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"use Tk;
...
 $l->insert('end', qq{hi\nthere\n});
 MainLoop();
"