fixed perl::critics