#!/usr/local/bin/perl
use Net::IP;
print ("Mask : ", $ip->mask());