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();