perl m8

#!/usr/bin/perl -w

use LWP::Simple qw($ua get);

$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3');

my @url = ("http://www.whatismyip.org"" target='_blank'>http://www.whatismyip.com","http://www.whatismyip.org";);
my $body = "";
my $exit = "";

print $url[0] . "\t(1)\n";
print $url[1] . "\t(2)\n";
print "Choose a website: ";
chop ($checker=<STDIN>);

if ($checker == 1){
    print "Checking: " . $url[0] . "\n";
    $body = get($url[0]);
}
if ($checker == 2){
    print "Checking: " . $url[1] . "\n";
    $body = get($url[1]);
    print "IP: " . $body;
    chop($exit=<STDIN>);
}
else{
    print "Choose either 1 or 2\n";
}
if($body =~ m/<TITLE>WhatIsMyIP.com -(.*?)<\/TITLE>/) {
    print "IP: " . $1;
    chop($exit=<STDIN>);
}

WHY DOES IT STILL
print "Choose either 1 or 2\n";

EVEN IF I CHOOSE 1! THANKS.

>>25
ONE WORD, "\015\012", THREAD OVER.