require LWP::UserAgent;
require HTTP::Request;
# /private/wi/wis_login.asp
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => 'http://www.host1.be');
$response = $ua->request($request);
if ( $response->is_success )
{       print $response->content;}
else
{       print $response->error_as_HTML;}
if ( $response->is_error && $response->error_as_HTML!~/501 Protocol scheme 'https' is not supported/ && $response!~/501 Can't locate object method "new" via package "LWP::Protocol::https"/ )
{
	print "différent de erreur 501"
}
else
{
	print "erreur 501"
}
exit();
undef $ua;
undef $request;
undef $response;
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => 'http://www.host.be/');
$response = $ua->request($request);
if ( $response->is_success )
{       print $response->content;}
else
{       print $response->error_as_HTML;}
if ( $response->is_error && $response->error_as_HTML!~/501 Protocol scheme 'https' is not supported/ && $response->error_as_HTML!~/501 Can't locate object method "new" via package "LWP::Protocol::https"/ )
{
	print "différent de erreur 501"
}
else
{
	print "erreur 501"
}