Select Code to Download

sub component_window {
    my ($prch,$pid) = @_;
    ...
...
    my ($proc,$text) = @_;
    ...
}

sub component_window {
    my ($prch,$pid,$text)=@_;
    ...

    ...
    my $tail = Tk::IO->new( 
       -linecommand => sub { tail_lines($prch, $text) });
    ...
}