$interp->Eval(<<'EOS'); # here goes Tcl/Tk code to construct GUI interface EOS # and here goes perl/Tk text to use my widgets $text->insert('end','text');