#!/usr/bin/env perl
# Core Modules
use strict;
use warnings;
use utf8;
use open ':encoding(UTF-8)';
use open ':std';

# Alarm Handler
$SIG{ALRM} = sub { print "Alarm vom Parent\n" };

# Fork erzeugen
my $pid = fork();

# undefined bei Fehler
if(!defined($pid))
{
    die "Fork schlug fehl ($!)\n";
}
# Parent Prozess
elsif ( $pid )
{
    parent();
}
# Child Prozess
else {
    child();
}

exit;

sub parent {
    alarm(3);
    wait();
}

sub child {
    $SIG{ALRM} = sub { print "Alarm vom Child\n" };
    alarm(5);
    sleep 10;
}