sub GetBaseURL{ my($lstrURL)=@_; my $ua = LWP::UserAgent->new; $ua->agent("MyApp/0.1"); $ua->proxy([qw(https http)], "http://proxy.compaq.com:8080"); $ENV{HTTPS_VERSION}='3'; #$ENV{HTTPS_CERT_FILE}="C:/openssl/private/CAcert.pem"; #$ENV{HTTPS_KEY_FILE}="C:/openssl/private/CAkey.pem"; $ENV{HTTPS_PKCS12_FILE}="C:/openssl/binu.p12"; $ENV{HTTPS_PKCS12_PASSWORD}='passcode'; #$ENV{HTTPS_PROXY}="http://proxy.compaq.com:8080"; $ua->timeout(1000); my $request=HTTP::Request->new(POST=> $lstrURL); my $response=$ua->request($request); #my $response=$ua->get($lstrURL) or die "cannot fetch $lstrURL: $!"; if ($response->is_success){ return $response->as_string; }else{ return $response->code; } }