This file is indexed.

/usr/share/doc/libchatbot-eliza-perl/examples/twobots is in libchatbot-eliza-perl 1.08-1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl

# In this example, we create two bots, and have them
# talk to each other.   This program exposes the 
# weaknesses of the default "psychiatrist" script. 
# This would be more interesting with better scripts.

use Chatbot::Eliza

my ($harry, $sally, $he_says, $she_says);

# Turn autoflush on, so we can watch 
# the output as it is produced. 
$|=1; 

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

$sally = new Chatbot::Eliza "Sally";
$harry = new Chatbot::Eliza "Harry";

$he_says  = "I am sad.";

my $loopcount = 5;

for ($i=0; $i < $loopcount; $i++) {

	$she_says = $sally->transform( $he_says );
	print $sally->name, ":  $she_says \n";

	$he_says  = $harry->transform( $she_says );
	print $harry->name, ":  $he_says \n";

}

1;