foreach my $user (PerlCommunity->users) {
  if (defined $user->{Gott}) {
    $user->say("Ich wünsche dir Gottes reichen Segen");
  } # if
  else {
    $user->say("Alles klar, Mann, ey?");
  } #else
} # foreach