my $data = '';

    my $DialogRef = $mw->Dialog(
            -title          => 'Neue Kategorie...',
            -text           => '',
            -bitmap         => '',
            -default_button => 'Hinzufügen',
            -buttons        => ['Hinzufügen','Abbrechen'],
        );

    my $Entry140 = $DialogRef->Entry(-textvariable => \$data, -relief => "sunken",);
    $Entry140->place( -x => 8, -y => 15, -height => 20, -width => 130);

      if ($DialogRef->Show() eq 'Hinzufügen')
      {
        print "\n\n  DATEN: $data";
      }