perl common-sense