#!/usr/bin/perl

use constant VERSION => "v1.06";

use strict;
use warnings;

use IO::Socket::SSL;
use LWP;
use LWP::UserAgent;
use LWP::Debug;
use WWW::Mechanize;

LWP::Debug::trace('()');

$| = 1; # perform flush after each write to STDOUT

my $url="https://customer.bookingbug.com";

my $initial_user_agent = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.53.11 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10';

my $mech;

$mech=WWW::Mechanize->new(
              agent => $initial_user_agent,
);



$mech->add_handler("request_send", sub { shift->dump; return });

$mech->get( $url );

printf($mech->content)


 

##</code><code>##

./s.pl
GET https://customer.bookingbug.com
Accept-Encoding: gzip
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/534.53.11 (KHTML, like Gecko) Version/5.1.3 Safari/534.53.10

(no content)
Error GETing https://customer.bookingbug.com: Can't connect to customer.bookingbug.com:443 (LWP::Protocol::https::Socket: SSL connect attempt failed with unknown errorerror:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol) at ./s.pl line 35.