I threw this together to watch two Alicebots (http://www.alicebot.org/) have a discussion. I'm sure everyone's seen the same thing with chattering Elizas... Alice does provide a few entertaining quips once in a while, but it does have a tendency to get stuck in loops a lot.

ALICE 0: What made it so obvious?
ALICE 1: It's all part of God's mysterious plans.
ALICE 0: Which part?
ALICE 1: The large one, I think.

#/usr/bin/perl -w
use strict;

use LWP::Simple;
use URI::Escape;
use URI::URL;

my $currentAlice = 0;
my @bots = ( int( rand 999999 ) + 1, int( rand 999999 ) + 1 );

print "Enter starting text for ALICE $currentAlice: ";
chomp( my $text = <STDIN> );

while (1) {

    print "ALICE $currentAlice: $text\n";

    my $url = URI::URL->new( "http://alicebot.org/a.l.i.c.e./CHAT" );

    $url->query_form(
              text    => uri_escape( $text ),
              virtual => "alice$bots[$currentAlice]",
              submit  => 'reply'
          );

    my $source = get( $url );

    next unless $source;

    $source =~ m,<font face=\"Helvetica\" color=black size=\+1>(.*?)<b
+r></font></b>,s;
    $text = $1;
    $text =~ s/<[^>]*>//g;
    $text =~ s/\s+/ /sg;

    $currentAlice ^= 1;

    sleep( 1 );

}
[download]

Update: The URL I was using stopped working for some reason, and alicebot.org's version now uses a different URL altogether, so I changed it. It also goes a lot faster than before, so I put in a sleep.

"We're experiencing some Godzilla-related turbulence..."