#!/usr/bin/perl -w

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla 8.0");

use HTTP::Request::Common qw(POST);


my $req = (POST 'https://www.i.ph/signup_check.php',
          [ username => 'recall',
            useremail => 'acerel54@linuxmail.org',
            userpassword1 => 'recall',
            userpassword2 => 'recall',
            usermobile => 639165263265,
            userchallenge => 'recall',
            useranswer => 'recall',
            agreement => 'on',
            domainname => "",
            'submit.x' => 49,
            'submit.y' => 12
            ]);

$request = $ua->request($req);
$content = $request->content;
print $content;
exit;