Elizen

use Chatbot::Eliza;

$eliza = new Chatbot::Eliza;
$alize = new Chatbot::Eliza;

$response = "I am a sad little monkey.";

while (1) {
  $response = $eliza->transform($response);
  print "Eliza: $response\n";

  $response = $alize->transform($response);
  print "Alize: $response\n";
}