my ($new_sock, $client_addr) = $sock->accept();
my $peerhost = $sock->peeraddr();
my $addr = inet_ntoa($peerhost);
print "$addr\n";
print $client_addr\n";
 while(<$new_sock>) {
 print $_;
 }
 close($sock);