use strict;
    use warnings;
    use LWP::UserAgent;
    use Crypt::SSLeay;

    my $base = 'https://ssl...';
    my $cgi  = 'terms with authen values'

    my $wrapper = new wrapper;
    my %hash = (
             cgi_method  => 'GET',
             url        => $base,
             redirection=> 'yes',
             proxy_type => $proxy_type,
             proxy_address => $proxy_address,
             proxy_credentials => $proxy_credentials,
            );
$wrapper->call_httpd_exec(\%hash);

my $response = $hash{response};

%hash = (
             cgi_method   => 'POST',
             #cgi_param    => $cgi,
             url          => $base,
             port         => '443',
             redirection  => 'yes',
             proxy_type   => $proxy_type,
             proxy_address => $proxy_address,
             proxy_credentials => $proxy_credentials,
            );

$wrapper->call_httpd_exec(\%hash);

print %hash;

$response = $hash{response};
print "\n##/n$response##\n";
my $redirect = $hash{request}->request->uri;
print "\n##/n$redirect##\n";

%hash = (
             cgi_method   => 'GET',
             #cgi_param    => $cgi,
             url          => $redirect,
             port         => '443',
             redirection  => 'yes',
             proxy_type   => $proxy_type,
             proxy_address => $proxy_address,
             proxy_credentials => $proxy_credentials,
            );
$wrapper->call_httpd_exec(\%hash);
$response = $hash{response};

print "\n##/n$response##\n";