#!/usr/bin/perl

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

 my $in = 'interactive'->vnew();
 my $dtext = cat_("gui-example-2.pl");
 my $wtitle = "Larger Text String Example";

 $in->ask_warn(_("%s", $wtitle), _("%s", $dtext));

 $in->exit;