#!/usr/local/bin/perl
use strict;

use Net::IP;

my $ip = new Net::IP('193.0.1/24') or die (Net::IP::Error());
print ("Mask : ", $ip->mask());
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.