Get External IP-address

Often you want to know your external IP-address. For this I created the following proc:

proc getExternalIP {} {
    set             token [http::geturl http://myexternalip.com/raw]
    set             externalIP [string trim [http::data $token]]
    ::http::cleanup $token
    return          $externalIP
}

It depends on:

package require http

And it expects that http://myexternalip.com/raw

returns your external IP-address.

As always: comments, tips and questions are appreciated.

See also edit