#!/usr/bin/perl
no strict;

for (;;) {
   wakeup;
   open MIND, "<NewIdeas";
   @knowledge = <MIND>;
   # close MIND;
   Consider (@knowledge);
   socialize, eat, sleep $well;
}

sub Consider {
   open MIND, ">>NewIdeas";
   foreach (@_) {
      study;
      seek MIND, $wisdom, $truth;
      analyze and experiment,
      wait for %enlightenment;
      store;
   }
   print MIND;
   # close MIND;
}