I this goes out twice, that's my bad.

Hi Sudha,

Do you mean a remote computer querying the script through a socket?

Is so, after you've accepted the connection (probably in a loop of some kind) with...

$paddr = accept(Client, Server);

... use the following two lines at the top of the loop...

my($port, $iaddr) = sockaddr_in($paddr);
my $name = gethostbyaddr($iaddr,AF_INET);

... or something similar for your network (the 'AF_INET' bit I mean).

gethostbyname wouldn't work because it takes the name as an argument.

If I got it wrong, and you just want the local system address, use the environment variable...

$ENV{'computername'}

Ta,
Greg


*************************************** 

This email message (and any accompanying file attachments) may contain confidential or privileged information and is intended for the sole use of the addressee(s) named above. If you are not the intended recipient, or the person responsible for delivering this message to the intended recipient, please notify Toowoomba City Council immediately and destroy any copies of the original message.
Any unauthorised review, use, alteration, disclosure or distribution of this email (including any attachments) by an unintended recipient is prohibited.
While all care is taken, Council cannot guarantee that this email message (and any accompanying file attachments) are free of viruses.
The Council accepts no responsibility for the content of any email which is sent by an employee which is of a personal nature or which represents the personal view of the sender.

***************************************