foo.pl

use OpenSRF::Utils::JSON;                                                      
                                                                               
                                                                               
my $j = {                                                                      
    select => {acqlid => ['id']},                                              
    from => {                                                                  
        jub => {                                                               
            acqlid => {                                                        
                join => {                                                      
                    acqcr => {                                                 
                        type => 'left',                                        
                    }                                                          
                }                                                              
            }                                                                  
        }                                                                      
    },                                                                         
    where => {                                                                 
        '-or' => [                                                             
            {'+acqlid' => {cancel_reason => undef}},                           
            {'+acqcr' => {keep_debits => 't'}}                                 
        ]                                                                      
    },                                                                         
    limit => 1                                                                 
};                                                                             
                                                                               
                                                                               
print OpenSRF::Utils::JSON->perl2JSON($j);