use strict;
use warnings;
use Curses::UI;

my $cui = new Curses::UI;

my $yes = $cui->dialog
                  (
                    -message => "Geht es gut?",
                    -buttons => ['yes','no'],
                    -values  => [1,0],
                    -title   => 'Montagsfrage',
                  );

if ($yes) 
 {  
  # machwas  
 }