<%perl> use GD::Barcode::QRcode; binmode STDOUT; my $text = "http://www.kates.org/\n"; print GD::Barcode::QRcode->new($text, { Ecc => 'L', Version=>2, ModuleSize => 3})->plot->png;