use Tk;
  $mw = MainWindow->new();
  @args=("start /wait", "hw32v400.exe");
  system(@args);