perl实例之获取DNS的主机地址

#!/bin/perl
#
use Socket;

$site_name = 'www.jb200.com';

$address = inet_ntoa(inet_aton($site_name));

print "The DNS address of www.jb200.com is $address";