Skip to content

Instantly share code, notes, and snippets.

@davorg

davorg/mk_qr

Last active February 6, 2025 09:28
Show Gist options
  • Save davorg/609b6fbeb802919bfec7c8c24d6863fc to your computer and use it in GitHub Desktop.
Save davorg/609b6fbeb802919bfec7c8c24d6863fc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mk_qr
#/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