Hi! In file Intro.pod there is a little mistake in section "Dealing with metadata" (Dealing with metadata).

To get the correct keys and their values it should be:
"
my %ud = $doc->user_defined;
foreach my $name (keys %ud)
{
print $name . '->' . $ud{$name} . "\n";
}
"
and not "... print $k . '->' . $ud{$k} ... ".

Nevertheless: great work! :)

Your BK