Select Code to Download

sub readPorts(\%) {
 die "Incorrect number of args to readPorts\n" unless @_ == 1;
 my $portHash = shift;
...
  push (@{$portHash->{$port}},$sname . "\t" . $rem);
 }
}