Select Code to Download

my $searchRes = $top->DialogBox(-title => 'Search Results',
...
            $ml->update;
            my $answer = $searchRes->Show();

sub _selectionUpdate {
...
    }
}