Select Code to Download

Tk::Error: Can't call method "reverse_ip" without a package or object 
+reference
at C:\_SCRIPT\Perl\DNS\TkNMLookup.pl line 21.
...
 Tk::Button::Invoke at C:/Perl/lib/Tk/Button.pm line 135
 <Key-Return>
 (command bound to event)

### Moduels to use
use Tk;
...
    my $namer = $answer->{'answer'}[0];
    $b = $namer->{'ptrdname'};
}