use threads;
use threads::shared;

use strict;

my $a : shared = 1;

{
    #our $a = 2;
    print $a;
}

##</code><code>##

use threads;
use threads::shared;

use strict;

my $a : shared = 1;
threads->create(\&display);
<STDIN>;

sub display {
    #our $a = 2;
    print $a;
}