$interpreter->Eval('pure-tcl-code-to-create-and-manipulate-widgets');

##</code><code>##

my $btn=$frame->Button(-text=>'Ok',-command=>sub{print 'ok'})->pack;