Wenn das aufrufende Modul ebenfalls mit Tk (und MainLoop) arbeitet, dann mach das ganze doch als Toplevel (siehe perldoc Tk::Toplevel)