my @menu = (
    { -label => 'File',
        -submenu => [
            { -label => 'Exit     ^Q',  -value => \&exit_dialog },
            { -label => 'Wait     ^W',  -value => \&remain_dialog  }
        ]
    },
}