#!/usr/bin/perl -w
use strict;

my $ips='192.168.1.1-192.168.1.254';

my ($first,$second)=split('-',$ips);
printf "%s-%s\n",$first,$second;
$first = incip($first);
$second = incip($second);

printf "%s-%s\n",$first,$second;

exit(0);

sub incip {
    my $ip=shift;
    my @o=split(/[\.]/,$ip);
    $o[3]++;
    return sprintf("%d.%d.%d.%d",@o);

}