So post a runnable example.  use Tk; $mw = tkinit; $mw->...withicion...; MainLoop;