#! /usr/bin/perl -w
use strict;
my $debug;
my $test = $ARGV[0];
print "<$test>\n";
if($test) {
    my $die = 1;
    my @a;
    if($test =~ s!/!\t!) {
        split @a = split m/\t/,$test;
print "($a[0],$a[1])\n";
        $die = 0 if isip($a[0]) && ($a[1] <= 32 and $a[1] > 16);
    }
    die "updatenodes.pl networkIP/numberofbits\n" if $die;
    $debug = 2;
} else {
    $debug = 15;
}