需要依次安装 qrencode、Text-QRCode、HTML-QRCode

#!/usr/bin/perl

use HTML::QRCode;

my $text = 'http://jb51.net/';

my $qrcode = HTML::QRCode->new->plot($text);

print <<"HTML";

$qrcode

HTML

更多信息请查看IT技术专栏