my $pid = open my $calc, '-|', "$command 2>&1"
            or die "Pipe failed on open: $!\n";
        my $vector = '';
        vec($vector,fileno($calc),1) = 1; # Flip bit for pipe

        unless (select($vector,undef,undef,$timeout)) { # Calculation is hanging
            # collect list of spawned processes
            my @pids = $pid;
            my $i = -1;
            push @pids, `ps --ppid $pids[$i] -o pid` =~ /\d+/g while ++$i < @pids;
            kill 9, $_ for @pids;
            die "Calculation call failed to return with $timeout seconds\n";
        }
        local $/; # Slurp
        my $content = <$calc>;
        close $calc;