#!/usr/bin/perl

use strict;
use warnings;
use threads;
use threads::shared;

my $dummy : shared = 1;
threads->new(sub { "B::c", $dummy++ })->join;

print "$dummy\n";