use strict;
use POE;
use POE::Component::Client::HTTP; # WRAPPED IN POCO::CLIENT::SSLIFY
use HTTP::Request::Common qw(GET POST);

my $url = "https://www.tabonline.co.za/"; # DOESN'T WORK IN WINDOWS AND LINUX - WORKS FINE IN A BROWSER AND LWP
# my $url = "https://www.helsinki.fi/"; # WORKS FINE IN THIS EXAMPLE

POE::Component::Client::HTTP->spawn
  ( Alias => 'uapar', 
    Timeout => 200,
    FollowRedirects => 2,
  );
  
          POE::Session->create
                    ( inline_states =>
                        { _start => sub {
                              my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
                              my $request = HTTP::Request->new(
                                  GET => $url, []
                                );
                                $kernel->post( uapar => request => got_response => $request );
                          },

                          got_response => sub {
                              my ( $kernel, $heap, $request_packet, $response_packet ) = @_[ KERNEL, HEAP, ARG0, ARG1 ];
                              my $http_request = $request_packet->[0];
                              my $http_response = $response_packet->[0];
                              my $response_string = $http_response->as_string();
                              print $response_string;
                          },
                        },
                  );

$poe_kernel->run();