$sock->print(qq{ }); $sock->print(qq{}); # terminate string? $sock->print(qq{\0}); print "ANSWER:" print <$sock>; close($sock);