#!/usr/bin/perl

use strict;

my $a = lxq("query sceneservice item.name ? 32");

lx("dialog.setup info");
lx("dialog.msg \"item name is $a\"");
lx("dialog.open");

my $r = lxq("dialog.result ?");
