How to find network for an IP in perl

[shorye]

Hi all,

I am creating a lsit by retrieving the IP address using
use Socket;

$packed=gethostbyname(server);
$get_IP=inet_ntoa($packed)

and now I want to find network (CIDR mask) for those in my current network........

Could any one suggest me any way to do that in perl .........


thanks in advance

[Tutku]

Do you want to find your local IP? If i understood right, this link can help you.