geoipmap http://www.copypastemap.com/

$ for i in `cat mine`; do geoiplookup $i |grep 'Rev 1'| awk 'BEGIN{FS="[,]"} {print $6, $7, "circle1", "green", "", $2, $4}'|sed 's/Rev 1://'; done|sort|uniq