perl -MLWP::Simple -le 'print get("http://whatismyip.com/")=~/IP\s+is (\S+)<\//i'