I think the OP is asking for programs or code snippets that write poetry, rather than actual poetry samples. In that case, it may be worth looking in Cool Uses For Perl or Snippets. (I'm not sure there's anything in there, but then again, I'm not sure exactly what the questioner wants. ;-)