use Something;

use threads;
use threads::shared;

use strict;
use warnings;

#my %hash : shared;
#my %hash;
$hash{VALUE} = &share(new Something(1));
print $hash{VALUE};


package Something;

sub new {
    shift;
    my $self = {};
    $self->{VALUE} = shift;
    bless($self);
    return $self;
}

1;

1;