use strict;
use Net::SSLeay;

$Net::SSLeay::trace = 0;
$Net::SSLeay::slowly = 1;

my ($page, $response, %foo) = Net::SSLeay::get_https('IP-adresse', 443, '/ser
vlet/webacc','');
print $page."\n";
print $response."\n";