Add some perl poetry