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