eval { open P,"$cmd 2>&1 |"; };
    if($@) { die('Cant launch cmd') }
    my @output=<P>;
    close P;
    my $rc = $? >> 8;