This isn't advisable at all, the mapping simply isn't reliable.

However, if you're determined then you may wish to look at Geo::IP