1: 2: 3: 4: 5: 6:
#!/usr/bin/perl use Net::Netmask; $n=Net::Netmask->new("209.3.2.1","0xfffffe00"); printf("Broadcast: %s\nSize: %s\n", $n->broadcast(), $n->size());