Anda dapat melakukan ini dengan panggilan sistem standar. Berikut ini contoh dalam Perl:
use strict; use warnings;
use Socket;
use Data::Dumper;
my @addresses = gethostbyname('google.com');
my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print Dumper(\@ips);
menghasilkan output:
$VAR1 = [
'74.125.127.104',
'74.125.127.103',
'74.125.127.105',
'74.125.127.106',
'74.125.127.147',
'74.125.127.99'
];
(Pada baris perintah, skrip yang sama dapat ditulis sebagai perl -MSocket -MData::Dumper -wle'my @addresses = gethostbyname("google.com"); my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses]; print Dumper(\@ips)':)
Anda dapat melakukan hal yang sama dalam bahasa lain - lihat halaman manual untuk panggilan sistem di man -s3 gethostbynamedll.