#!/usr/bin/perl
# file cidr.pl
$m=pack B32,pop=~'/'x$';printf"$` network %vd broadcast %vd netmask %vd\n",($z=eval$`)&$m,$z|~$m,$m