perl mod sillyness