use LWP::Simple;
if (get('http://www.whatismyip.com/') =~ /(\d+[.]\d+[.]\d+[.]\d+)/) {
    print $1;
}