Some misc perl