The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w

use Chatbot::Eliza;

# This little script tests the Norwegian-language
# version of the "doctor" script.

# seed the random number generator
srand( time ^ ($$ + ($$ << 15)) );    

$chatbot = new Chatbot::Eliza "Mats", "norsk.txt";
##$chatbot->debug(1);
$chatbot->command_interface();