#!/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" };

# Parent Prozess
if ( my $pid = fork() ) {
    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;
}