diff options
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'); |