##


use WWW::Mechanize;

my $email = '';
my $password = '';
my $ja_login = 'http://www.justanswer.com/login.asp';
my $answer_page = 'http://www.justanswer.com/expert/question-list.aspx';
my $confirm_signon = 'My Questions';


print header, start_html("JA");
my $mech = WWW::Mechanize->new(agent => 'InternetExplorer 8');
my $login_get = $mech->get($ja_login);

$mech->submit_form(
  form_name => 'aspnetForm',
  fields => {
    email => $email,
    password => $password, 
    sign_in_type => 'returning',},
);

if ($mech->content !~ m/$confirm_signon/)
{
   print "Failed to sign on";
print $mech->content;
   exit;
}

$mech->get($answer_page);
print $mech->content;