Host name resolver

#!/usr/bin/perl
use Socket;
   /* Host name resolver By Adm1n_0v3rride*/
   $iaddr = inet_aton("192.168.3.23"); # or whatever address
   $name  = gethostbyaddr($iaddr, AF_INET);
   print "Host name is $name\n";