#!/usr/bin/perl

 use lib qw(/usr/lib/libDrakX);
 use interactive;
 use strict;

 my $in = 'interactive'->vnew();
 my $wtitle = "OK or Cancel Example";

 my $answer = $in->ask_okcancel(_("%s", $wtitle), _("Please Make A Choice"));

 #if $answer = 1, proceed, otherwise exit

 $in->ask_warn(_("%s", $wtitle), _("You said 'OK'")) if ($answer eq "1");

 $in->exit;