Commit bc53d5c8 authored by root's avatar root

major update

parent 971eb4d6
#!/usr/bin/env perl
use Net::SSLeay qw(die_now die_if_ssl_error get_https post_https sslcat make_headers make_form);
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms(); # Important!
Net::SSLeay::ENGINE_load_builtin_engines(); # If you want built-in engines
Net::SSLeay::ENGINE_register_all_complete(); # If you want built-in engines
Net::SSLeay::randomize();
($page) = get_https('www.bacus.pt', 443, '/'); # Case 1
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment