#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $resp = $ua->post(
       "https://www.website.ws/members/index.dhtml",
        [
            userid   => 'foo',
            pwd      => 'bar',
            language => 'english',
            form     => 1,
            page     => '',
            func     => '',
            pagedrop => '',
        ]
    );

if ($resp->is_success) {
    print $resp->decoded_content;
} else {
    print $resp->status_line;
}

##</code><code>##

$ ./843152.pl | grep login-error

<p class="login-error">Too many login attempts.<BR>Please contact Customer Service at (1) 760-602-3000, M-F, 8:00 am - 5:00 pm, PST.</p>

$ strace -eopen ./843152.pl 2>&1 | grep Crypt/SSLeay.pm
open("/usr/lib/perl5/Crypt/SSLeay.pm", O_RDONLY) = 4