use Tkx;
use Tkx::FindBar;
use strict;
use warnings;
my $name;
my $mw=Tkx::widget->new('.');
my $text=$mw->new_text(-width=>20,height=>10);
my $findbar=$mw->new_tkx_FindBar(-textwidget=>$text);
foreach(qw/David Mary William/) {
    $text->insert('end',"$_\n");
}
$findbar->g_pack();
$text-g_pack();
$findbar->show();
$text->g_bind('<Return>',sub{$name=$text->get(qw/sel.first sel.last);print "The name is $name\n"});