($page, $result, %headers) =
        Net::SSLeay::get_https("aaa.bbb.com", 443, "/data/file.gz",
        Net::SSLeay::make_headers('Authorization' =>
                'Basic ' . MIME::Base64::encode("$user:$pass"))
        );

# print downloaded file into local file
open(FILE, "file.gz");
print FILE $page;
close FILE;