let's say we have a process, $process :

    if ($process->Wait (60*1000)){
        # execution of the process is successfully.
        $process->Kill(0);
    } else {
        # process has hung up for some reason
        handle_process_problem ();
        notify_sysop();
        $process->Kill(255)
    }
[download]

you might also look for a particular dialog box's title, and take appropriate action, using Win32::Setupsup and its GetWindowTitles method.