Select Code to Download

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

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