1 2 3 4 5 6 7
#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use interactive; my $in = interactive->vnew; my $res = $in->ask_okcancel($ARGV[0], $ARGV[1], 1); $in->exit($res);