my $entry = $viewbox->curselection;
print $viewbox->get($entry)."\n";