print "Write to backend $clientid\n";
my $written;
eval {
    print "AAAA\n";
    $written = syswrite($clients{$clientid}->{backendsocket}, $clients{$clientid
    print "BBBB\n";
};  
print "X\n";
if($EVAL_ERROR) {
    print "Backend write error: $EVAL_ERROR\n";
    push @toremove, $clientid;
    next;
}  

##</code><code>##

Write to backend someclientid
AAAA

##</code><code>##

Write to backend someclientid
AAAA
X
Backend write error: some_error_message