#!/usr/bin/perl

use strict;
use warnings;
use POSIX;
use Switch;
use Text::vCard::Addressbook;

...

my $node_n = $vcard->get({ 'node_type' => 'N' })->[0];
print STDERR " " . $node_n->given() if (defined $node_n->given);