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

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

# Add a node to it
my $address = $vcard->add_node({
                        'node_type' => 'ADR',
                });

# Add some data to the address.
$address->street('19 The mews');
$address->city('Buffyvill');

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