use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use WWW::Mechanize;

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


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