#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $browser = LWP::UserAgent->new;
my $resp = (POST 'www . wheresmycellphone . com/', ['txtisdcode' => 1,  txtcitycode' => '000', 'txtphone' => '0000000']);

my $response_to_discard = $browser->request($resp);
print $response_to_discard;