open(IN, "program.pl |");
while(<IN>){
    $rotObj->insert('end', $_);   #this doesn't seem to work
    print STDERR "test";  #prints to my terminal window in real time
}
close(IN);