misc perl