use strict;
use warnings;
use base qw(Factory);

my $res = main->request( uri => 'https://www.example.com' );

printf( qq(
    Response => %s
    Mozilla::CA::VERSION => %s
    LWP::Protocol::https::VERSION => %s
    IO::Socket::SSL::VERSION => %s
), $res->status_line, $Mozilla::CA::VERSION, $LWP::Protocol::https::VERSION, $IO::Socket::SSL::VERSION);