simple 249 Bytes
Newer Older
Ralf's avatar
Ralf committed
1 2 3 4
#!/usr/bin/perl -w

use Chatbot::Eliza;

5 6 7 8 9
$chatbot = new Chatbot::Eliza {
		name       => "Eliza",
		prompts_on => 0,
		memory_on  => 1,
	};
Ralf's avatar
Ralf committed
10 11 12 13 14 15 16

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


$chatbot->command_interface();