#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Crypt::SSLeay;

my $server = "https://www.httpsdinges.de/login-cgi";
$ENV{HTTPS_KEY_FILE} = 'test.pem';
$ENV{HTTPS_CERT_FILE} = 'test.pem';

my $user = "ich";
my $passwd = "geheim";
my $agent = LWP::UserAgent->new();
$agent->timeout(5);
my $response = $agent->request(POST $server,
        [
                user => $user,
                pass => $passwd,
        ]
);

print( %$response );