1: 2: 3: 4: 5: 6:
#! /usr/bin/perl сеть пользы:: Netmask; $n=Net:: Netmask->new («209.3.2.1», «0xfffffe00»); printf («передача: %s \ nSize: %s \ n», $n->broadcast (), $n->size ());