#!/usr/bin/perl -w
# cidrtool.pl: emit an /etc/network/interfaces stanza given
#              a CIDR address

use Net::Netmask;
use strict;

my $addr = $ARGV[0];
$addr =~ s@/.*@@;
my $block = new Net::Netmask($ARGV[0]);

print "address $addr\n";
print "\tnetmask " . $block->mask() . "\n";
print "\tbroadcast " . $block->broadcast() . "\n";
print "\tgateway " . $block->nth(1);