# Jonathan S. Mark jonathansamuel@yahoo.com
# Program to log on to Alxnet

use strict;
use LWP;
use HTTP::Request::Common;

use constant ALX_ENTER => 'http://www.alxnet.com/controlcenter/';
use constant ALX_REFERER => 'http://www.alxnet.com';

my $ua = LWP::UserAgent->new;
my $newagent = 'enter_alxnet/1.0 (' . $ua->agent . ')'; #identifies app to net. Not important.
$ua->agent($newagent);

my $request = POST (ALX_ENTER, Content => [email => 'jonathansamuel@yahoo.com', passwd => 'subforactualvalue', t => 'alxnet_signup'], Referer => ALX_REFERER);
my $response = $ua->request($request)->as_string;
print $response;