use HTTP::Request ; use LWP::UserAgent ; use HTTP::Cookies; use Net::SSLeay; if ( $url =~ /^https/ ) { # HTTPS $url =~ s/^https:\/\/// ; my $indice = index $url, "/" ; $site = substr $url,0,$indice ; $path = substr $url,$indice,length($url)-$indice; my $code ; ($content, $code, %headers) = Net::SSLeay::get_https($site,443,"/".$path); ($vers,$response_code,$ris) = split /\s/,$code ; } else { # HTTP with cookie my $ua = new LWP::UserAgent ; $ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave => 1)); my $request = new HTTP::Request( "GET", "$url" ); my $response = $ua->request($request) ; $response_code = $response->code ; my $response_message = $response->message ; $content = $response->content ; my $status_line = $response->status_line ; }