310     sub printx {
311	my $sock = shift;
312	print $sock "@_\n";
313     }