#!/usr/bin/env perl

use HTML::QRCode;

my $text = 'http://rc6.org';
my $qrcode = HTML::QRCode->new->plot($text);

print $qrcode;
