added some perl poetry