Skip to content

Instantly share code, notes, and snippets.

@sergot
Created August 13, 2014 17:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sergot/cc39f1bcab8b5579ecec to your computer and use it in GitHub Desktop.
Save sergot/cc39f1bcab8b5579ecec to your computer and use it in GitHub Desktop.
use IO::Socket::SSL;
my $ssl = IO::Socket::SSL.new(:host<github.com>, :port(443));
my $content;
$ssl.send("GET /\r\n");
while my $read = $ssl.recv {
$content ~= $read;
}
say $content;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment