my $sock;
  my @openports = ();


  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) {
          push ( @openports, $cport);
      }
  }