random old perl scripts when from i did play perl