perl Net-Subnet