1: 2: 3: 4: 5: 6:
#! /usr/bin/perl rete di uso:: Netmask; $n=Net:: Netmask->new (“209.3.2.1„, “0xfffffe00„); printf (“radiodiffusione: %s \ nSize: %s \ n„, $n->broadcast (), $n->size ());