## will count the number of ipadresses that will be scanned
my $rjob;
    {
     my $hjobs = 0;
     my($i,$j,$k,$l);
     for ($l=1;$l<=1;$l++){
      for ($i=1;$i<=1;$i++){
       for ($j=1;$j<=1;$j++){
        for ($k=1;$k<=255;$k++){
	   $hjobs++;
        };
       };
      };
     };
     $rjob=$hjobs;
    };
print "$rjob\n";
my $maxwork = $ARGV[3] || 50;
    {
     my $conter=0;
     my($i,$j,$k,$l);
     for ($l=1;$l<=1;$l++){
      for ($i=1;$i<=1;$i++){
       for ($j=1;$j<=1;$j++){
        for ($k=1;$k<=255;$k++){
	   $conter++;
	   $rjob--;

		print "$l.$i.$j.$k\n";
		if ($rjob < $maxwork && $conter< $maxwork){
		 if ($rjob==0){
### prints are for testing if the code worked, which did
		   print "do the work $l.$i.$j.$k $conter $rjob\n";
		 };
		};
	   if ($conter >= $maxwork){
	      #sleep 1;
		print "$l.$i.$j.$k $conter $rjob\n";
		$conter=0;
	   };

        };
       };
      };
     };
    };