Select Code to Download

#!/usr/bin/perl -w

...

    cond_signal( $locked );
}

locked(main)
 starting
...
 exiting
result: timeout
done