use threads;

sub gettid {
    use Config;
    die if $Config{archname} !~ /x86_64-linux/;

    syscall 186
}

sub diag {
    print "pid=$$ tid=@{[threads->tid]} gettid=@{[gettid]}\n";
}

async { diag }->join for 1..5;