#main

my $kid = open my $fh, "theExternalProcess 2>&1 |" or die $!;
while( <$fh> ) {
    ## Read the output from theExternalProcess
}
## You'll end up here when the kid goes away