sub senddata
{
  if ($debug) { print ">> @_"; }
  print $sock @_;
}