#!/usr/bin/perl
use Getopt::Euclid;
use Net::SenderBase;
$| = 1;

my $addr = $ARGV{'<address>'};
print "Querying '$addr'...";
my $query = Net::SenderBase::Query->new(
   Transport => 'dns',
   Address => $addr
);
my $results = $query->results();
print "\n\n", $results, "\n";

=head1 NAME

senderbase-query - Command-line tool to query senderbase service

=head1 USAGE

   senderbase-query <address>

=head1 REQUIRED ARGUMENTS

=over

=item <address>

IP or hostname

=back

=head1 AUTHOR

Joenio Costa <joenio@perl.org.br>

Copyright 2011 Colivre.