Select Code to Download

    foreach $pt (@{$remote_port [$i]}) {

    my %data = (
       'arbornet.org' => [21, 23, 80],
...
       'apple.com'    => [80],
       'yahoo.com'    => [80],
    );