#!/usr/athena/bin/perl

require 'csdb.cf';

open(CSDB, $cellservdb);
while (<CSDB>) {
  if (/^(\d+\.\d+\.\d+\.\d+)/) {
    @servers = (@servers, $1);
  }
}
close(CSDB);

foreach $ip (@servers) {
  system("./vldb-check $ip > data/$ip &");
}