#!/usr/bin/perl
$|++;

my $pid = fork();    

unless($pid) {
  while(1..) {
        prozess_bei_den_eltern();
  }
  CORE::exit;
}

sub prozess_bei_den_eltern {
    # hier sind wir wieder bei den Eltern
}