my ($hostaddr_as_a_string)=$socket->sockhost();
print "Local addr is $hostaddr_as_a_string\n";