while(sleep 60) {
  for (datenbankabfrage()) {
    my $kind = fork;
    unless ($kind) {
      tu_was($_);
    }
  }
}

sub tu_was {
  ...
  exit 0;
}