small changes to check sys perl