Originally Posted by darnoth

#!/usr/bin/perl

use strict ;

open (FILE, "NAMEOFFILE") ;
my @buf = <FILE> ;
close (FILE) ;

foreach my $item (@buf) {
chomp $item ;
my ($one,$two,$three) = split (/\./, $item) ;
for my $i (0 .. 255) {
print "$one.$two.$three.$i\n" ;
}
}

Change NAMEOFFILE to whatever the file is that has your IP's listed.
IP's should be in the form of:
1.1.1.1
2.2.2.2
3.3.3.3

Etc. If you have a question let me know.