#!/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 
{
  # security 
}

sub sensorium 
{
  # sensorium
  print "Press ENTER or ESCAPE key: ";
  $_ = <STDIN>;
  exit if (/^\027/);
}

sub emotion 
{
  # emotion 
}

sub think 
{
  # think 
}

sub volition 
{
  # volition 
}

sub motorium 
{
  # motorium 
}

#---