##

#!/usr/bin/env perl

use strict;
use warnings;

use Text::QRCode;

my $qr = Text::QRCode->new()->plot("YAPH");

my $black = '';
my $white = '';
print " ;\n"; # Add "silent zone"
print '', "\n";
foreach my $line (@{$qr}) {
    print "";
    foreach my $elem (@{$line}) {
        if($elem eq '*') {
            print $black;
        } else {
            print $white;
        }
    }
    print "\n";
}   
print '<\table">', "\n";
print " ;\n"; # Add "silent zone"