_start=>sub {
            $TXT = $poe_main_window->Scrolled('Text')->pack;
            $_[KERNEL]->yield('_GetInput');
        },
        _GetInput=>sub {
            if (defined(my $line = <$ifd>)) {
                print STDERR $line;
                $TXT->insert('end', "-$.- $line");
                $poe_main_window->update;
                $_[KERNEL]->yield('_GetInput');
            }
        },