#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib $FindBin::Bin.'/lib';

use Term::QRCode;
print Term::QRCode->new->plot(shift) . "\n";
