diff options
author | Stefan Ritter <xeno@thehappy.de> | 2011-08-16 10:51:41 +0200 |
---|---|---|
committer | Stefan Ritter <xeno@thehappy.de> | 2011-08-16 10:51:41 +0200 |
commit | ba46c304bdffdce0b6019a47f6759ce6abbeef90 (patch) | |
tree | 40a5b204637cb65c5bb91bd4f26a248ea498e019 /test.pl |
Initial commit
Diffstat (limited to 'test.pl')
-rw-r--r-- | test.pl | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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'); |