1: 2: 3: 4: 5: 6:
#! /usr/bin/perl rede do uso:: Netmask; $n=Net:: Netmask->new (“209.3.2.1”, “0xfffffe00”); printf (“transmissão: %s \ nSize: %s \ n”, $n->broadcast (), $n->size ());