VCARD to QRcode

vcard2qrcode.pl

#!/usr/bin/perl
#

use GD::Barcode::QRcode;

open(X, ">./out.png");
binmode(X);
my $vcard = "
BEGIN:VCARD
N:Lastname;Firstname
EMAIL:Firstname.Lastname\@example.com
END:VCARD
";

print X GD::Barcode::QRcode->new($vcard, { Ecc => 'Q', Version=>7, ModuleSize => 2})->plot->png;

close(X);