Check out arin http://www.arin.net/cgi-bin/whois.pl
For example I search on my ip 204.101.53.222 - it gives back
WorldLinx Telecommunications
RADIANT Communications - > my service provider
Toronto, Ontario M5V 3G1
So basically you can get my location. I guessing thats how google does it. Probably
they replicate the data. I wrote a little script in python that can get the
data via a post command. Doing the same thing in tcl should be easy.
Anthony