#!/usr/bin/perl

use strict;
use warnings;

use threads;
use threads::shared;
use Thread;
use Data::Dumper;

my $href;
my $href_shared:shared;

$href    = {
    NAME    => "name",
    VNAME    => "vname",
};

$href_shared = &share($href);

printf "main thread:%s\n",Dumper($href);

my $thread1 = Thread->new(\&function, 1);
my $thread2 = Thread->new(\&function, 2);

$thread1->join();
$thread2->join();

sub function {
    my $param = shift;

    print "thread $param started\n";
    printf "href=%s\n",Dumper($href);
    sleep(1);
    print "thread $param ends\n";
}