Select Code to Download

  sub agent_handler {
    # ...
...
    $wheel->put("Greetings from MyServer version 1.0");
    # ...
  }

  sub agent_handler {
    # ...
...
    delete $heap->{wheel}->{$wheel_id};
    delete $heap->{socket}->{$wheel_id};
  }

  $heap->{$wheel->ID} =
    { wheel  => $wheel,
      socket => $socket,
      foo    => $foo,
    };

  delete $heap->{$wheel_id};