use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

my $tx = $ua->max_redirects(100)->get('https://eztv.ch/showlist/');
if (my $res = $tx->success) {
    print $res->body;
} else {
    my $err = $tx->error;
    die "$err->{code} response: $err->{message}" if $err->{code};
    die "Connection error: $err->{message}";
}