在perl中从mongodb获取答案

use strict;
use warnings;
use MongoDB;

# 连接到MongoDB数据库
my $client = MongoDB->connect('mongodb://localhost');
my $db = $client->get_database('mydb');
my $collection = $db->get_collection('mycollection');

# 查询答案
my $query = {'question' => '你的问题'};
my $result = $collection->find_one($query);

# 输出答案
if ($result) {
    print "答案：$result->{answer}\n";
} else {
    print "找不到答案\n";
}