#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'rdtsc', CLEAN_AFTER_BUILD => 0;

SV *rdtsc() {
    return newSVuv( (UV)__rdtsc() );
}

END_C

use threads;
use threads::shared;

my $sig:shared;
my $l0 :shared;
my $l1 :shared;
my $ts :shared = 0;
async( sub {
    my $lockRef = shift;
    my $tid = threads ->tid;
    while( 1 ) {
        printf "[%5d] Waiting    at: %10u ms\n", $tid, ( rdtsc() - $ts ) / 2400;
        {
            lock $$lockRef;
            cond_wait( $sig, $$lockRef );
        }
        printf "[%5d] Got signal at: %10u ms\n", $tid, ( rdtsc() - $ts ) / 2400;
    }
}, $_ )->detach for \$l0, \$l1;

sleep 1; ## Give threads a chance to start.
while( 1 ) {
    { lock $ts; $ts = rdtsc() };
    printf "[main]  signalling at: %10u\n", 0;
    { lock $sig; cond_broadcast( $sig ) };
    sleep 3;
}

__END__
C:\test>cond_b.pl
[    1] Waiting    at: 7250756853 ms
[    2] Waiting    at: 7250765890 ms
[main]  signalling at:          0
[    2] Got signal at:       1422 ms
[    1] Got signal at:       1426 ms
[    2] Waiting    at:       3361 ms
[    1] Waiting    at:       6105 ms
[main]  signalling at:          0
[    2] Got signal at:       1384 ms
[    1] Got signal at:       1398 ms
[    2] Waiting    at:       3695 ms
[    1] Waiting    at:       7011 ms
[main]  signalling at:          0
[    2] Got signal at:       1362 ms
[    1] Got signal at:       1361 ms
[    2] Waiting    at:       3672 ms
[    1] Waiting    at:       7077 ms
Terminating on signal SIGINT(2)