Net::Lookup::DotTel 0.03

Net::Lookup::DotTel is a Perl module that offers an easy way to access the contact information that is stored in DNS through NAPTR and TXT records under the .tel TLD.

SYNOPSIS

 use Net::Lookup::DotTel;
 my $lookup = Net::Lookup::DotTel->new;

 if ( $lookup->lookup ( 'smallco.tel' )) {

 my $service = $lookup->get_services ( 'email' );

 if ( $service->{uri} =~ /^mailto:(.+)/ ) {
 my $email = $1;
 print "SmallCo's email address is $email
";
 }

 }


Product's homepage

Requirements:

· Perl