External IP address

I use the following code to obtain the local IP address of my server:

proc ip:adr {} {
set me [socket -server xxx -myaddr [info hostname] 0]
set ip [lindex [fconfigure $me -sockname] 0]
close $me
return $ip
}

How would I obtain the external IP address?

Thanks,
CJ.

.