$mw->Busy(-recurse => 1);
my $dlg = SimpleExecDialog->new(-parent => $mw);<br>
$dlg->raise;<br>
$dlg->set_text("Working . . .");<br>
my $cmd = "cdrecord -blank=fast -dev=0,0,0";<br>
$dlg->exec_cmd($cmd);<br>
if ($dlg->status eq 'cancel'){<br>
      $dlg->withdraw;<br>
      $mw->Unbusy;<br>
}