#!/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)