sub dec_to_bin { my $number= $_[0]; my $position= $_[1]; while($number!= 0) { $adress_bin[$position]= $number % 2; $position--; $number/= 2; } } $adress_dec= "192.168.0.0"; # $adress_dec= $ARGV[0]; $old_mask= 16; # old_mask= $ARGV[1]; $num_of= 100; # num_of= $ARGV[2]; $sub_host= "host"; # sub_host= $ARGV[3]; @adress_dec= split(/\./, $adress_dec); for $i (0 .. 31) { $adress_bin[$i]= 0; } dec_to_bin($adress_dec[3], 31); dec_to_bin($adress_dec[2], 23); dec_to_bin($adress_dec[1], 15); dec_to_bin($adress_dec[0], 7); for $i (0 .. 31) { print $adress_bin[$i]; }