Net::SSLeay 을 사용한 ssl connection

use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);

# get method 
($page, $response, @headers) = get_https('dnshopadmin.shop.daum.net', 443, '/bo2/login/Login');
  for ($i = 0; $i < $#headers; $i+=2) {
     print "$headers[$i] = " . $headers[$i+1] . "\n";
  }

  print "\n=========================\n";

#post method
($page, $response, @headers) = post_https('dnshopadmin.shop.daum.net', 443, '/bo2/login/LoginCheck', '',
               make_form(
                ret_url  => "/bo2/login/Main",         
         login_type => "comp",
  usrid   => $https_user,
  password  => $https_pass,
               ));
              
  for ($i = 0; $i < $#headers; $i+=2) {
     print "$headers[$i] = " . $headers[$i+1] . "\n";
  }