$heap->{prompt_server} = POE::Wheel::SocketFactory->new
        ( SocketDomain => PF_UNIX,
          BindAddress  => $heap->{session}->id."/prompt.socket",
          SuccessEvent => 'new_prompt_connection',
          FailureEvent => 'prompt_error',
          );