my $sock;
  my @openports = ();
  my $i = -1;

  print "Scanning $host for open ports.....\n\n";
  foreach my $cport (@ports) {
      $sock = IO::Socket::INET->new(PeerAddr => $host,
                                  PeerPort => $cport,
                                  Proto => $proto);
      if($sock) {
          $i++;
          $openports[$i] = $cport;
      }
  }