use Net::SSLeay qw(post_https make_form); 
($return_code, $result, %headers) = post_https('foo.com', 443, '/cgi-bin/secure.cgi', '', make_form('foo=>"$bar"));<br>