my $chat  = AI::Chat->new(%h);
$chat->success() or die sprintf "error 1: %s\n", $chat->error();
print "$chat\n";
my $reply = $chat->prompt($prompt, $TEMP);
$chat->success() or die sprintf "error 2: %s\n", $chat->error();
defined $reply or die sprintf "error 3: %s\n", $chat->error();

##</code><code>##

AI::Chat=HASH(0xa0042da30)
error 3: