Please clarify. Are you still receiving "can not put on undefined value at line 117" when you replace that line with the one Mike suggested? Namely:

  $heap->{client}->put($message) if defined $heap->{client};
[download]

I find this hard to believe, but stranger things have happened.

-- Rocco Caputo - http://poe.perl.org/