root/misc/tld

Revision 1988 (checked in by miyagawa, 14 years ago)

added tld

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use Net::Domain::TLD;
5
6 my $tld = shift;
7 print Net::Domain::TLD::tlds->{$tld} || "$tld not found.", "\n";
Note: See TracBrowser for help on using the browser.