#!/bin/sh
IP=`myip` perl -e 'use Geo::IP; my $gi = Geo::IP->new(GEOIP_STANDARD); my $country = $gi->country_code_by_addr($ENV{IP}); print "$country\n"'