my($xml) = IWXML::GetLogDataFromSTDIN();my(@file_new_ok) = $xml->GetItems("FILE","NEW","COMPLETED");my(@file_mod_ok) = $xml->GetItems("FILE","UPDATE","COMPLETED");foreach (@file_new_ok) { `chmod u+x $_`}foreach (@file_mod_ok) { `chmod u+x $_`}