#!/usr/bin/perl
use IPC::Open3;
use File::Temp qw/ :mktemp /;
my $options={
	'height'=>30,
	'menuheight'=>20,
	'width'=>50,
	'title'=>"My dialog",
};
my $val={
	'Options1'=>30,
	'String_Options'=>30,
	'Another_Options'=>30,
	'Another_again'=>"My dialog",
};
perlog_run($options,$val);

sub create_cmd_line()
{
	my ($hropt,$hrentry)=@_;
	my $cmdline="dialog --nocancel --inputmenu \"$hropt->{'title'}\" $hropt->{'height'} $hropt->{'width'} $hropt->{'menuheight'}";
	foreach(sort keys %$hrentry)
	{
		$cmdline .= " \"$_\" \"$hrentry->{$_}\"";
	}	
	return $cmdline;
}				
sub perlog_run()
{
	my ($hropt,$hrentry)=@_;
	my $d;
	for(;;)
	{
		open OLDERR,     ">&", \*STDERR;
		close(STDERR);
		(*STDERR,$filename)=mkstemp("perllogXXXXXX");		
		my $c=&create_cmd_line($hropt,$hrentry);
		system("$c");
		close (STDERR);
		open STDERR,     ">&", \*OLDERR;
		close (OLDERR);	
		open IN,"<$filename";
		$_=<IN>;
		close(IN);		
		unlink $filename;	
		(/[^\s]+\s([^\s]+)\s(.+)$/)?$hrentry->{$1}=$2:last;
	}
}