this is my first try to write a poem,
and while english is not my native,
i hope you will understand this poem
the way i understand it :-) and if you
have anything to add to it, or fix it,
you are allways wellcome.

while (($perl{'is nice'}) and ($perl{'is funny'})) {
  $many_people=&code('for money');
    if (($you{'think'} eq $perl{'is nice'}) or ($you{'think'} eq $perl{'is funny'})) {
      &code('yourself');
      &save('the money');
    }
}