8
my $ua = LWP::UserAgent->new();
9
my $res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
11
if ($res->code == 501 && $res->message =~ /Protocol scheme 'https' is not supported/) {
12
print "1..0 # Skipped: " . $res->message . "\n";
18
ok($res->content =~ /Apache Software Foundation/);
20
$res->dump(prefix => "# ");