sub KillProcTree {
    my ($pid) = @_;

    if ($^O ne 'MSWin32') {
        return "Aborting" if !$pid || !kill 'HUP', $pid;
        return "Aborted";
    }

    require 'Win32/Process/Info.pm';
    require 'Win32/Process.pm';

    Win32::Process::Info->import();

    my $pi = Win32::Process::Info->new('', 'WMI');
    my $iters;

    while (my %info = $pi->Subprocesses($pid)) {
        if (++$iters > 40) {
            Win32::Process::KillProcess($pid, -1);
            return 'Aborting';
        }

        my @leaves = grep {!@{$info{$_}}} keys %info;

        last if !@leaves;

        print "Killing: @leaves\n";
        Win32::Process::KillProcess($_, -1) for @leaves;
        sleep 2;    # Allow a little time for processes to die
    }

    return 'Aborted';
}