#!/usr/bin/perl
use UI::Dialog;

my $d = new UI::Dialog
  ( order => ["whiptail"],
    height => 20, listheight => 5, debug => 1,
  );
my @items =
 ( 1, 'Running `uname -o`',
   2, 'Running $(uname -o)'
 );
$d->menu
  ( text=>"The following menu items allow for commands in strings.",
    list=>\@items,
    'trust-input' => 1
  );
$d->menu
  ( text=>"The following menu items DO NOT allow for commands in strings. (Default behaviour.)",
    list=>\@items,
  );