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

$IO::Socket::SSL::DEBUG = $IO::Socket::SSL::DEBUG = 3;

my $url = 'https://yt-dl.org/';
my $ua = LWP::UserAgent->new(); 
my $response = $ua->get($url);  
if (!$response->is_success) {
        say "\nFehler: ".$response->status_line;
}
else { 
        say "\nerfolgreich"; 
}