#!/usr/bin/perl -w

use Tk;
use Picker;
use strict;

my $mw= MainWindow->new;

my $ep= $mw->Picker(-title=> 'Entity Picker');

# should return an entity key
my $choice= $ep->Show;
print "$choice\n";

$mw->destroy;

MainLoop;