What part are you having a problem with?

# ashnator.pl
while (1) {
   $answer = wait_for_answer();
   change_spec();
   #work();
   post_question("$answer doesn't work");
}
[download]