1 : 2 : 3 : 4 : 5 : 6 :
# ! /usr/bin/perl filet d'utilisation : : Netmask ; $n=Net : : Netmask->new (« 209.3.2.1 », « 0xfffffe00 ») ; printf (« émission : %s \ nSize : %s \ n », $n->broadcast (), $n->size ());