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

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

my $vcard = Text::vCard::Addressbook->new()->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();
my $vcf_file = $vcard->export();
print ("$vcf_file");