perl(k): fix mk_action call