generate QR code

gen_qr.pl

#!/usr/bin/env perl
use strict;
use Imager::QRCode qw(plot_qrcode);

my %params = (
    size          => 15,
    margin        => 2,
    version       => 1,
    level         => 'M',
    casesensitive => 1,
    lightcolor    => Imager::Color->new(255, 255, 255),
    darkcolor     => Imager::Color->new(0, 0, 0),
);

my $text = "What are you looking at?!";
my $img = plot_qrcode($text, \%params);

SAVE: for my $format ( qw( png jpeg gif tiff ppm ) ) {
    if ($Imager::formats{$format}) {
        my $file.="sample_qr.$format";
        print "Storing image as: $file\n";
        $img->write(file => $file) or die $img->errstr;
        last SAVE;
    }
}