Calculate netmask in Perl

This is a small code snippet I wrote along time ago for a bigger framework I’ve created. No extra modules are required.
It calculates the netmask of a network based on the network address and network bit (CIDR notation).

It produces the following output:

Comments are closed.