#!/usr/bin/perl

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

my $th_inc = threads->new( \&kind );

my $var = "perlcommunity";
share($var);

sub kind {
    print "$var\n";
    return 0;
}

sleep(2); # auf das Kind warten