use vars qw/ %opt /;

##</code><code>##

sub revlookup
{

##</code><code>##

my $res=Net::DNS::Resolver->new;
$res->nameservers($server);
my $search = $res->search($input);

##</code><code>##

if ($search)
{
    foreach $rr ( $search->answer)

##</code><code>##

sub fwlookup
{

##</code><code>##

sub options
{
    use Getopt::Long;