package checktld;

require Exporter;
use strict;

our @ISA = qw(Exporter);
our @EXPORT = qw(valid_tld);

my @tldlist = ( <insert some tlds here for testing purposes> );

sub valid_tld
  {
my $p_this = $_[0];

  return undef if(@_ != 1);

  foreach (@tldlist)
    {
    return 1 if($p_this eq $_);
    }

  return 0;
  };

1;

__END__