Select Code to Download

  my $wheel = POE::Wheel::ReadWrite->new( ... );
  $heap->{readwrite}->{$wheel->ID} = $wheel;

sub agent_error {
  my ($heap, $function, $error, $wheel_id) = @_[HEAP, ARG0, ARG2, ARG3
+];
...
  # Close the socket here...
  delete $heap->{readwrite}->{$wheel_id};
}