while(sleep 60) {
  for (datenbankabfrage()) {
    my $kind = fork;
    unless ($kind) {
      tu_was($_);
    }
  }
 my $pid = waitpid(-1, &WNOHANG);
}

sub tu_was {
 ...
 exit 0;
}