# Pseudocode
our $conn;
sub handler {
 my $r = shift;
 $conn ||= connect();
 send($conn, 'abc');
 print recv($conn);
 return OK;
}