open2(read,write,program);
for (executes about 6000 times)
{
              print write $cmd;
              #This works fine and dandy until about usually 3500 iterations into the loop, and its the same command everytime.  Sometimes I even get to 5000 iterations into the loop before the program hangs.
}