--- _LibIDN.pm
+++ _LibIDN.pm
@@ -107,7 +107,7 @@
 1;
 __END__
 
-=encoding latin1
+=encoding utf8
 
 =head1 NAME
 
@@ -117,17 +117,17 @@
 
   use Net::LibIDN ':all';
 
-  idn_to_ascii("Räksmörgås.Josefßon.ORG") eq
+  idn_to_ascii("Räksmörgås.Josefßon.ORG") eq
     idn_to_ascii(idn_to_unicode("xn--rksmrgs-5wao1o.josefsson.org"));
 
-  idn_prep_name("LibÜDN") eq "libüdn";
+  idn_prep_name("LibÜDN") eq "libüdn";
 
-  idn_punycode_encode("kistenmöhre") eq
+  idn_punycode_encode("kistenmöhre") eq
     idn_punycode_encode(idn_punycode_decode("kistenmhre-kcb"));
 #IF_TLD
 
   my $errpos;
-  tld_check("mèrle.se", $errpos) eq undef;
+  tld_check("mèrle.se", $errpos) eq undef;
     $errpos == 1;
 
   tld_get("mainbase.mars") eq "mars";