sub agent_error {
  print "Got an agent error, exiting agent session!\n";
  my ($function, $error) = @_[ARG0, ARG2];
  print "SERVER: call to $function() failed: $error.\n";

  # I sure would like to close the socket here...
  delete $_[HEAP]->{readwrite};
}