use strict; use warnings; use diagnostics; use Imager; use Imager::QRCode; my $qrcode = Imager::QRCode->new ( size => 2, margin => 2, version => 1, level => 'M', casesensitive => 1, lightcolor => Imager::Color->new(255, 255, 255), darkcolor => Imager::Color->new(0, 0, 0), ); my $img = $qrcode->plot('test'); my @type = ('jpeg', 'png', 'gif', 'tiff', 'bmp', 'pnm', 'raw', 'sgi', 'tga'); for (@type) { open IMAGE, '>', 'image.'.$_ or die $!; binmode IMAGE or die $!; print IMAGE $img->write(fh => \*IMAGE, type =>$_) or die $!; } close IMAGE or die $!;