Help for this page

Select Code to Download


  1. or download this
    use vars qw/ %opt /;
  2. or download this
    sub revlookup
{
  3. or download this
    my $res=Net::DNS::Resolver->new;
$res->nameservers($server);
my $search = $res->search($input);
  4. or download this
    if ($search)
{
    foreach $rr ( $search->answer)
  5. or download this
    sub fwlookup
{
  6. or download this
    sub options
{
    use Getopt::Long;