use Tk::DialogBox;
              ^
              |