Comando para buscar por nombre del DNS y etc/hosts

$ getent hosts <nombrehost>

$ getent ahostsv4 www.google.com

#!/usr/bin/perl use strict; 
use warnings; 
use Socket;
my $ip = gethostbyname($ARGV[0]); 
if (defined $ip) { 
my $ip_addr = inet_ntoa($ip); 
print "$ip_addr\n"; }