From ba46c304bdffdce0b6019a47f6759ce6abbeef90 Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Tue, 16 Aug 2011 10:51:41 +0200
Subject: Initial commit

---
 test.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 test.pl

(limited to 'test.pl')

diff --git a/test.pl b/test.pl
new file mode 100644
index 0000000..049b0c7
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+use Net::Domain::TLD qw(tlds tld_exists);
+
+my @ccTLDs = tlds('cc');
+print "TLD de OK\n" if tld_exists('de', 'cc');
+print "TLD ac OK\n" if tld_exists('ac', 'cc');
-- 
cgit v1.2.3