use IO::Socket qw( inet_aton inet_ntoa );

my $start = unpack( "N", inet_aton( "192.168.0.0" ) );
my @addrs;
push @addrs, inet_ntoa( pack( "N", $start++ ) ) for 1..(256*256);