almost finish perl plugin system_fixinfo