Select Code to Download

use strict;
use Tk;
...
$wait is 2                             # [1] but it has been increment
+ed
$wait++ by pid 2372                    # [3] increment locally again
finished waiting for $wait (is now 3)  # ... and it works

use japh; print;