Select Code to Download

my $dialog = $mw->Toplevel;
$dialog->overrideredirect(1);

if ($dialog->parent->toplevel->viewable){$dialog->transient($dialog->p
+arent);}