#!/usr/bin/perl
use strict;
use warnings;
require IO::Socket::SSL;
require LWP::UserAgent;
use 5.010;

say "\n\n\nSTART\n";

say "Perl: ".$];
say "IO::Socket::SSL: ".IO::Socket::SSL->VERSION;
say "LWP::UserAgent: ".LWP::UserAgent->VERSION;
$IO::Socket::SSL::DEBUG = 3;$IO::Socket::SSL::DEBUG = 3;
# doppelt sonst Name "IO::Socket::SSL::DEBUG" used only once: possible typo at test.pl line 13.

foreach my $url ('https://google.de','https://yt-dl.org') { # google als Test der generellen Funktionstüchtigkeit
	say "\n\nAbruf $url\n";
	my $ua = LWP::UserAgent->new;
	my $response = $ua->get($url);
	if (!$response->is_success) {
		say "\nFehler: ".$response->status_line;
		exit;
	}
	else { say "\nerfolgreich"; }
}
say "\nFERTIG";