Name to IP conversion in perl?

[Brett_Tabke]

Ok, I have IP to domain name conversion down pat. I was just presented with a task of going the other way from Domain name to IP. What is the fastest way in perl?

[littleman]

This works,
use Socket;
$sitename = 'domain.com';
$address = inet_ntoa(inet_aton($sitename));
print $address;

It may be the fastest.

[Brett_Tabke]

ouch. That is so easy it is embarassing.

[Brett_Tabke]

Final edition:

use Socket;

&dresolve('webmasterworld.com');
&dresolve('searchengineworld.com');

sub dresolve {
$sitename =shift;
$ba =inet_aton($sitename);
$address ="Not valid";
if ($ba) {
$address = inet_ntoa($ba)
}
print "$sitename $address \n";
}