use strict;
use IO::Socket::SSL; # qw(debug3);

# simple client
my $cl = IO::Socket::SSL->new(
		PeerAddr 	=> 'example.com:https',
		) or die $!;
    print $cl "GET /stream/report?token=4gaPemdzfM2M9XwMU9HT8MJSc6Fu6MlA HTTPS/1.0\r\n\r\n";