Select Code to Download

#!/usr/bin/perl
use strict;
...
my $answer = $res->query($ip->reverse_ip(),'PTR');
my $namer = $answer->{'answer'}[0];
print "PTR Name: $namer->{'ptrdname'}\n";

my $ip = new Net::IP($a,4);

my $ARGV = $a;

my $ip = new Net::IP($ARGV[0],4);