#!/usr/bin/perl -w
#
sub security;
sub sensorium;
sub emotion;
sub think;
sub volition;
sub motorium;
while (1) {
  security();
  sensorium();
  emotion();
  think();
  volition();
  motorium();
}
sub security {
  # http://mentifex.virtualentity.com/acm.html#security 
} def;
sub sensorium {
  # http://mentifex.virtualentity.com/acm.html#sensorium
  print "Press ENTER or ESCAPE key: ";
  $_ = <STDIN>;
  exit if (/^\027/);
} def;
sub emotion {
  # http://mentifex.virtualentity.com/acm.html#emotion 
} def;
sub think {
  # http://mentifex.virtualentity.com/acm.html#think 
} def;
sub volition {
  # http://mentifex.virtualentity.com/acm.html#volition 
} def;
sub motorium {
  # http://mentifex.virtualentity.com/acm.html#motorium 
} def;
#---

This weblog invites all Perl programmers to implement the main Alife Mind loop of the simplest artificial intelligence.

Please put the resulting free AI source code on the Web to inspire other coders to flesh out the core of the AI with additional mind-modules.

There is no need to standardize or homogenize the evolution of the server-side AI Minds in Perl. Let there be a wide diversity and diaspora of the evolving Minds in a classic scenario of the survival of the fittest.