Listing 6

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 ;
}