#!/usr/bin/perl
sub main {
open ($OUT, ">.ip.txt") or die "cannot open file";


print "This script will try to create a random ip list of 450,000 hosts\n";


for($i=0;$i<=10000;$i++){
$oct1 = int rand(254);
$oct2 = int rand(254);
$oct3 = int rand(254);
$oct4 = int rand(254);
$ip = join('.', $oct1, $oct2, $oct3, $oct4);

&trace_progress($ip);

  }

}

sub trace_progress {
 my $word_progress=shift;



 print $OUT "$word_progress\n";
}






&main()