我正在尝试在Perl中生成一个与Python中生成的字符串等效的压缩字符串。

Python（产生正确的输出）：

import gzip
test_file = 'example.json'

with open(test_file) as f:
    output_data = gzip.compress(f.read().encode())
    print(output_data)

我在Perl中尝试做的工作或多或少：

use Encode;
use IO::Compress::Gzip qw/gzip/;
use File::Slurp;

my $json = read_file('example.json',{ binmode => ':raw' });
my $utf8_record = encode("utf8",$json);
my $output_data;
gzip \$utf8_record => \$output_data;
print $output_data;

您知道我在Perl方面做错了什么吗？