use strict;

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

my $qr = GD::Barcode::QRcode->new("testing 123", {Ecc => 'M', Version => 5, ModuleSize => 6});

open JPG, ">qrcode.jpg";
binmode JPG;
print JPG $qr->plot()->jpeg(100);
close JPG