#!/usr/bin/env perl
use warnings;
use strict;
use Net::IP;
my $ip = new Net::IP ('10.168.254.0 - 10.169.1.255' ) || die ;
  # Loop
  do {
      print $ip->ip(), "\n";
  } while (++$ip);