modificar codigo perl para conexion https

[jferrero]

Prueba con este código, que es más sencillo:

Código perl:

#!/usr/bin/perl
#
# Prueba de carga de peticiones SSL a un mismo host, que se pasa como argumento.
#
# Joaquín Ferrero. 20180120
#
use v5.10;
use strict;
use warnings;
 
use Net::SSLeay 'get_https';
 
my $host = $ARGV[0] // 'localhost';
 
for my $intento (1..100) {
    my ($pagina, $respuesta, %cabeceras_respuesta) = get_https($host, 443, '/');
 
    #say "[$pagina]";
 
    say "Intento $intento: $respuesta";
 
    #use Data::Dumper;
    #say Dumper \%cabeceras_respuesta;
}
 

Puedes ejecutarlo de forma directa, y entonces probará 'localhost', o puedes pasarle el nombre del dominio como primer argumento:

./test_SSL.PL mi.dominio.com