#!/usr/bin/perl

use threads;
use threads::shared;

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

sub kind {
    vater(); # Aufruf von Sub im Elternprozess
    return;
}

sub vater {
    # hier sind wir wieder im Elternprozess
}