Select Code to Download

 $mw->Busy(-recurse => 1);
my $dlg = SimpleExecDialog->new(-parent => $mw);<br>
$dlg->raise;<br>
...
      $dlg->withdraw;<br>
      $mw->Unbusy;<br>
}

  ####################################################################
+########
#  
#
...

1;