{
    my $n = 0;
    sub handler {
        my $tid = threads->self->tid;
        for( 1 .. 5e5 ) {
            usleep( 100 );
            print "$tid: ", $n++;
        }
    }
}