print "\ngetpeername: " . getpeername($sock) . "\n";