Skip to content

Instantly share code, notes, and snippets.

@davorg
Last active February 6, 2025 09:28
#/usr/bin/perl
use strict;
use warnings;
use Imager::QRCode;
my $url = shift || 'https://perlhacks.com/';
my $qrcode = Imager::QRCode->new;
my $img = $qrcode->plot($url);
$img->write(file => 'qrcode.png')
or die 'Failed to write: ' . $img->errstr;
@davorg
Copy link
Author

davorg commented Feb 6, 2025

qrcode

And here's the QR Code it makes

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment