QRコードを出すPerl CGI

qrcode.cgi

#!/usr/bin/perl

use CGI;
use GD::Barcode::QRcode;

binmode(STDOUT);

my $cgi = new CGI;
my $string = $cgi->param("string");

print "Content-Type: image/png\n\n";
print GD::Barcode::QRcode->new($string, { Ecc => "Q", Version => 5, ModuleSize => 3 })->plot->png;