1  #!/usr/bin/perl
 2
 3  use lib qw(/usr/lib/libDrakX);
 4
 5  use interactive;
 6  use strict;
 7
 8  my $in = 'interactive'->vnew();
 9
 10 $in->ask_warn(_("Configuration Tool Example"), _("Press OK To Exit"));

11
 12 $in->exit;