sub _forkFHCommand
{
    my ($command, $time) = @_;
    my @resp3;
    my $pid = open COMMAND, "-|", $command or die $!;
    my $endtime = time() + $time;
    my $line;
    while($line = <COMMAND>) {
        push(@resp3, $line);
        if (time > $endtime) {
            kill 15, $pid;
            last;
        }
    }
    close COMMAND;
    return (0, @resp3);
}