Select Code to Download

  my $sock;
  my @openports = ();
...
      }
  }

  my $sock;
  my @openports = ();
...
          push ( @openports, $cport);
      }
  }