error: coudn't locate object OPEN via package Tk::Event::IO (perhaps you  forgot to load Tk::Event::IO?) at blah line blahblah 
##</code><code>##

($pid = open (CHILD,"-|"))||exec "perl script.pl";
$main->fileevent(\*CHILD,'readable',[\&fill_text_status]);

sub fill_text_status{
        $_ =<CHILD>;
        if (/^EOF$/){ #child send EOF if done
                $status->configure(-text=>"Status area");
                close CHILD;
                return;
        }
   
        chomp;
        $status->configure(-text=>$_);
}