Select Code to Download

$top->protocol( 'WM_DELETE_WINDOW', sub{} );

sub getSearch {
    my $dialog = $top->DialogBox( 
...
    }
    return;
}