I think you should ask perl.

print "A Perl Koan is a ",(rand)?'poem.':'meditation.';
[download]