Some perl poetry