#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $browser = LWP::UserAgent->new;

my @req = ('http://www.wheresmycellphone.com/submit.php',
           [txtisdcode => 1,  txtcitycode => '000', txtphone => '0000000']);

my $response_to_discard = $browser->post(@req);
print $response_to_discard->as_string();