add modified c_check perl program