#!/usr/bin/perl
use Text::vCard;
use Text::vCard::Addressbook;

my $address_book = Text::vCard::Addressbook->new();

my $vcard = $address_book->add_vcard();
$vcard->fullname('Maxine Mustermann');
$addresses = $vcard->get({ 'node_type' => 'addresses' });
$addresses->[0]->street('The burrows');
$addresses->[0]->region('Wimbeldon common');

my $vcf_file = $address_book->export();
print ("$vcf_file");