#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new(keep_alive => 1);
for my $i (1..3) {
    my $response = $ua->head('https://www.example.com/');
    print 'Client-SSL-Warning: ' . ($response->header('Client-SSL-Warning') // '(none)') . "\n";
}
