1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/publicsuffix/idn.pl b/contrib/publicsuffix/idn.pl
new file mode 100644
index 0000000..dd46d65
--- /dev/null
+++ b/contrib/publicsuffix/idn.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use Net::IDN::Encode ':all';
+use Unicode::Normalize;
+
+binmode(STDOUT, ":utf8");
+binmode(STDIN, ":utf8");
+
+while (<>) {
+	$_ = NFC($_);
+	if (/^[^\/].*[^\x00-\x7F]+.*/) {
+		chomp;
+		printf "%s\n", domain_to_ascii($_);
+		$_ .= "\n";
+	}
+} continue {
+	print $_;
+}
+\ No newline at end of file