#!/usr/bin/perl -w
alarm 20;
my $pid;
if ($pid = fork()) {
 # Vater
 exit ();
 # /Vater
}
else {
 # Sohn
 require "irgendeinscript.pl";
 &test;
 exit ();
 # /Sohn
}