#!/usr/bin/perl
use strict;
use warnings;
use Text::QRCode;
use TextPrinter;

my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;';

my $qr=Text::QRCode->new(
    level=>'H',
    mode=>'8-bit',
);

my $arr=$qr->plot($data);

TextPrinter::draw_whole($arr,1);
