#!/usr/bin/perl
  use Socket;
  $host=@ARGV[0];
  $port=@ARGV[1];
  @ip=split (/\D+/, $host); #делим айпи на разряды по точке
  $index=0;
  $r1=$ip[0]; #записываем разряды в массив
  $r2=$ip[1];
  $r3=$ip[2];
  $host=$r1.".".$r2.".".$r3; #составляем предварительный адрес
   
   socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
   
  while($index<=255)
  {
  $host=host.".".$index; #составляем окончательный адрес
   $addr = inet_aton($host); # далее коннект
          $paddr = sockaddr_in($port, $addr);
          if(connect(SOCK, $paddr)){
           print("Host: $host open $port port");
          }else{
          next;
          }
   
  }