perl(k): use sr31_cmd_export_t