[Secrets]

Here's an example script/screenshot to go with this.

sub EVENT_SAY {

if($text=~/hail/i) {
$client->ReadBook("This is not a test item! THIS IS REALLY PERL", 0);
$client->ReadBook("This is a book!", 1);
}

}