Help for this page

Select Code to Download


  1. or download this
    error: coudn't locate object OPEN via package Tk::Event::IO (perhaps y
+ou  forgot to load Tk::Event::IO?) at blah line blahblah
  2. or download this
    ($pid = open (CHILD,"-|"))||exec "perl script.pl";
$main->fileevent(\*CHILD,'readable',[\&fill_text_status]);
...
        $status->configure(-text=>$_);
}