while (<SCRIPT>) {
  $resultsBox->insert('end', $_);
}
[download]

You are going to have "blocking" problems in your Tk script, when reading the pipe filehandle that way. What will happen is your Tk gui will be unresponsive while it waits on the pipe. See how to do non-blocking win32 pipe reads for Tk at Please suggest a non-forking way to do this (OS: windows). See ikegami's example. On unix, we can use Tk::fileevent on pipes, but it dosn't work on win32, so you need special hacking.

But.... if your script returns that array quickly, you may be able to do it your way.