请问perl中有通过掩码和ip计算出网段的函数吗？

我知道在c语言中有现成的函数很简单，如下例子：
－－－－－－－－－－－－－－－－－－－－－－－－－－
| eth1_addr="192.168.0.1"
|eth1_mask="255.255.255.0"
| unsigned long addr=inet_aton(eth1_addr);
| unsigned long mask=inet_aton(eth1_mask);
| inet_ntoa(addr & mask)= 得到最终的网段地址
-------------------------------------------------------------
请问在perl中有inet_aton和inet_aton类似的函数吗？
谢谢

我晓得了，用这个函数仍然可以