#!/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"; }