1 files changed, 9 insertions, 0 deletions
diff --git a/eliza.pl b/eliza.pl
new file mode 100755
index 0000000..baacaff
--- /dev/null
+++ b/eliza.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use Chatbot::Eliza;
+$bot = new Chatbot::Eliza("Eliza", "");
+print $bot->{initial}->[0] . "\n";
+while (my $message = <STDIN>) {
+	$message = $bot->transform($message);
+	print "$message\n";
+}
+exit;