use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();

    $mech->get('https://www.paypal.com/us');

    $mech->submit_form(
        form_number => 1,
        fields      => {
            login_email => 'sss',
            login_password => 'sss',
        }
    );
die unless ($mech->success);

print $mech->content();
[download]