Perl Poetry
“Life” – by Brian Van Horne

#!/usr/bin/perl
# life.pl

open life; use Wisdom;
seek food, water, shelter;

for () { # means to
eat() if /hungry/;
drink() if /thirsty/;
sleep (“just for a while”) if /tired/;
read books, $think, write $code, etc;
}

close life;
exit # quietly . . .

Kevin Meltzer is the creator of the Perl Poetry Contest. See the 2001 Perl Poetry Contest results.