12345678910111213141516
#!/usr/bin/perluse strict;use threads; my $th_inc = threads->new( \&kind );$th_inc->join();sub kind { sleep(4); print "Kind ist fertig\n"; exit;}print "Vater fertig\n";