如何从Perl CGI程序发送JSON响应？

cpan install JSON

use JSON;

my %data = (
    name => "John Doe",
    age => 30,
    city => "New York",
);

my $json_data = JSON->new->encode(\%data);

print "Content-Type: application/json\n\n";

print $json_data;

#!/usr/bin/perl

use strict;
use warnings;
use JSON;

my %data = (
    name => "John Doe",
    age => 30,
    city => "New York",
);

my $json_data = JSON->new->encode(\%data);

print "Content-Type: application/json\n\n";
print $json_data;