#!/usr/bin/perl

use 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";