#!/usr/bin/perl

  use strict;
  use warnings;

  use POSIX qw(:signal_h);   # Import der Signal-Konstanten

  $SIG{'CHLD'} = 'IGNORE';      # vermeidet Zombie-Prozesse

  my $pid = fork;

  if($pid == 0) {
      # Kind schlaeft 5 Minuten
      sleep 300;
      exit(0);
  } else {
      # Vater toetet Kind schon nach 10 Sekunden
      # und beendet sich nach 10 Sek selbst
      sleep 10;
      kill SIGKILL, $pid;
      sleep 10;
      exit(0);
  }