Select Code to Download

sub get_service {
 open (SERVICES, "/etc/services") || die "$!\n";
...
     }
  }
}

my %service=($name,[$portnum,$proto]);