Select Code to Download

use strict;
use IO::Socket::SSL; # qw(debug3);
...
        PeerAddr     => 'example.com:https',
        ) or die $!;
    print $cl "GET /stream/report?token=4gaPemdzfM2M9XwMU9HT8MJSc6Fu6M
+lA HTTPS/1.0\r\n\r\n";