use Net::hostent;
use Socket;
[code]
und


[code]
my $addr1 = inet_ntoa($h->addr);