You are going to have to do a bit more work to get at the problem. First, unbuffer the output with $|++, then start printing out loads of statements like "I'm here!" and "still going!". Turn up logging on the data base and see if your program manages to complete all it's calls.

Finally, I'm going to take a wild guess and suggest you rewrite this line:

$neg .= "<option value=\"$data[0]\">$data[0]</option>\n";

For no other reason than once, long ago, I had a perl script crashing out on concatenations when working through a lot of data. Try pushing the strings onto an array like push @neg, "<option..." and then joining the array afterwards. But that's pure speculation, and I would first blame the database since MS bashing is fun. But if it is the database there's nothing you can do.

____________________
Jeremy
I didn't believe in evil until I dated it.