#! /usr/local/bin/perl -wl

use NetAddr::IP;

my $first = shift || '172.17.220.1';
my $nr    = shift || 1000;

my $end = NetAddr::IP->new($first)->numeric + $nr;
print $end->addr;

# prints 172.17.223.233