#!/usr/bin/perl -w

use LWP::Simple qw($ua get);
use strict;
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4');

my @url = ("http://www.whatismyip.com","http://www.whatismyip.org","http://www.myip.dk");
my $body = "";
my $checker = "";

print $url[0] . "\t(1)\n";
print $url[1] . "\t(2)\n";
print $url[2] . "\t(3)\n";
print "Choose a website: ";
chop ($checker=<STDIN>);
if ($checker eq 1){
        print "Checking: " . $url[0] . "\n";
        $body = get($url[0]);
        if($body =~ m/<TITLE>WhatIsMyIP.com -(.*)<\/TITLE>/) {
        print "IP: " . $1;
}
}
#}
elsif($checker eq 2){
        print "Checking: " . $url[1] . "\n";
        $body = get($url[1]);
        if($body =~ m/^\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b$/){
        print "IP: " . $body;
}
}
elsif($checker eq 3){
 print "Checking: " . $url[2] . "\n";
$body = get($url[2]);
        if($body =~ m/<title>Your IP: (.*)<\/title>/) {
        print "IP: " . $1;
}
}
else{
        print "Choose either 1, 2 or 3";
}