#!/usr/bin/perl -l
use strict;
use warnings FATAL => 'all';
use threads;
use threads::shared;
use HTTP::Headers;
use LWP::UserAgent;


my $counter_thread : shared;

sub getgoog {
    my $method = "GET";
    my $uri = "https://www.google.com/";
    my $header = HTTP::Headers->new();
    $header->push_header("Content-Type" => "application/json");

    my $ua = LWP::UserAgent->new;
    $ua->ssl_opts(verify_hostname => 0, SSL_verify_mode => 0x00);

    my $request = HTTP::Request->new();
    $request->method($method);
    $request->uri($uri);
    $request->headers($header);
    my $response = $ua->request($request);

    print $counter_thread++, "th :", "Dumped Data Returned:\n\n ", substr ($response->decoded_content, 0, 256);

    print "Response code:  ", $response->code, "\tHTTP Response Message: ",
        $response->message, " ";

    print "Thread id: ", threads->tid(), "\n";
}

my $thra = threads->create (\&getgoog);
$thra-> join;
my $thrb = threads->create (\&getgoog);
$thrb-> join;