Skip to content

Instantly share code, notes, and snippets.

Created Sep 17, 2010

What would you like to do?
sub do_httpx3 {
my ($method, $usessl, $site, $port, $path, $headers,
$content, $mime_type, $crt_path, $key_path) = @_;
my ($response, $page, $h,$v);
if ($content) {
$mime_type = "application/x-www-form-urlencoded" unless $mime_type;
my $len = blength($content);
$content = "Content-Type: $mime_type$CRLF"
. "Content-Length: $len$CRLF$CRLF$content";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.