--- perl_ldap.orig	2006-05-23 19:46:38.000000000 +0000
+++ perl_ldap	2006-05-23 19:25:19.000000000 +0000
@@ -387,8 +387,10 @@
 }    
 
 if ($opts{'U'} or ($cmd eq "U")) {
+    use encoding 'latin1';
     my $outname ="xml";
-    open my $out, ">:encoding(utf8)", $outname or die;
+    #open my $out, ">:encoding(utf8)", $outname or die;
+    open my $out, ">", $outname or die;
     use XML::Simple;
     use Data::Dumper;
 
@@ -417,7 +419,7 @@
         $userinfo .= '      <firstname>'.$_->get_value('givenName').'</firstname>'."\n";
         $userinfo .= '      <familyname>'.$_->get_value('sn').'</familyname>'."\n";
         $userinfo .= '    </realname>'."\n";
-        if($_->get_value('gpgkey') eq 'undefined')
+        if(!defined($_->get_value('gpgkey')) || ($_->get_value('gpgkey') eq 'undefined'))
         {
           $userinfo .= '    <pgpkey/>'."\n";
         } else {