Da gibt es verschiedene Moeglichkeiten. Evtl. kannst du Tk::DialogBox oder Tk::Dialog verwenden. Wenn du es zu Fuss machen willst, solltest du dir grab (Dokumentation in Tk::grab) und transient und evtl. withdraw (Dokumentation in Tk::Wm) angucken.