#!perl

use strict;
use warnings;
use LWP::UserAgent;
use WWW::Mechanize;

my $ua = LWP::UserAgent->new;
$ua->protocols_allowed(['https']);