#! /usr/bin/perl

use strict;
use warnings;

use WWW::Curl::Easy;

my $curl = new WWW::Curl::Easy;
$curl->setopt(CURLOPT_HEADER, 1);
$curl->setopt(CURLOPT_FOLLOWLOCATION, 1);
$curl->setopt(CURLOPT_VERBOSE, 1);
$curl->setopt(CURLOPT_SSL_VERIFYHOST, 0);
$curl->setopt(CURLOPT_SSL_VERIFYPEER, 0);
$curl->setopt(CURLOPT_URL, "https://www.google.com/");

open(my $null, ">", "/dev/null");
$curl->setopt(CURLOPT_WRITEDATA, $null);
$curl->perform;
close($null);
