how to get ip

How get get ip address in sh or perl, If I know server adress?

For example I want to get IP for example.com
How to do that in sh or perl? (perl preferred)
 
Code:
# arp freebsd.org
freebsd.org (69.147.83.40) -- no entry
works better (for what I want)

perhaps, there's tool/cmd to get IP only?
 
Code:
#!/usr/bin/perl -w

use strict;
use Socket;

my $raw_ip;
my $dotted_ip;

$raw_ip = gethostbyname("freebsd.org");

if (defined $raw_ip) {
        $dotted_ip = inet_ntoa($raw_ip);
        print $dotted_ip;
} else {
        print 'Not found';
}

Code:
$ ./getip.pl
$ 69.147.83.40
 
Back
Top